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Voorzitter: Secretaris: Penninsmeester: 
Th. van Kempen. A. Jonsetins. G. Visser. 
Het Purven 71. Klokkensietershoeve 5 Harinavliet 391, 
5672 RB Nuenen, 7526 SB Apeldoorn. 8OI2 HL Zwolle. 
Teif B4B — BIE219 Tert 255 — AITSI4 Telf DIB — S4ESEL. 
Giro S244295 Bank 33.52.87, 285 
Beide t.n.v, Penninameester Acorn computerciub. 

Zwolle. 


Redactie ACORN NIEUWS: 


Rudi van Drunen — hardware 
Frans van Hoese) — assembler 
Hans Marks = basic 
Henk Reinders = layout 

Bandiesarchief: 
Redactie Acorn Nieuws: P, Grevelt, 
Postbus 1050 Swatmstraat 12 
9708 BA Groen ineen. 1784 CP Den Helder 
Teif DSB — 125458 Telt B2230 - 17069 
Datasheets: Drukwerkarchieft 
G. Akkermans. F. Monsato 
Wikke 1 Biesbosch 155 
1273 BR Huizen. 8952 VD Zwolte. 


Tetf B2152 -— 5029. 
Uiterste datum inteverina copyi 


NR 5. 27 — 7 — 1954, 
NRG. 24 » B - 1984, 
NR 7. 28 - 9 — 1984, 
NRB. 25 -18 - 1984, 
NR 1. 18 -12 — 1954. 


DE CLUB-WINKEL : 


Geheusenkaart: 16 KByte extra in de ATOM ti. 509 
Schakelkaart} meerdere EPROM's oe Akxx Cinct, 7&LS1SH tt. SU: 08 
Prosrammerkaart: zeif prosrammeren van EPROMs Els XK XX 
Herdruk ACORN NIEUWS 19823 97 pa. wetenswaardisheden tl. 6,09 
Jaarsana 19853 totaal ruim 450 pas, ti. 50.08 
ATOM-WARE deet 15 machinetaal op de ATOM 98 pas. ti. 6.29 


Beste! len: 

Bij Uw resionaie pennins-meester, 7 
Rechtstreeks bij de federatieve penningmeester. dan fl. 4,00 extra 
voor porto-kosten. 

Archiefdiensten: 

Voor bandies: datasheets: EPROMS en alle andere vormen van dienst’ 
vertenins kunt U terecht bij de regionale archiefdiensten. Mocht in 
Uw resio iets ontbreken: dan helpt het resionatebestuur U verder on 
wees. 


Voor wat de printen betreft kan worden medesedeeld dat deze pas in 
september leverbaar zijn aansezien de kaarten opnieuw worden 
getekend oP eurokaart formaat. 





INHOUD 


sas 2 t Uit de Federatie 
pas 3 1 Inhoud 

pas & : Uit de Federatie 
pas 5 t Waar kunnen we naar toe 
pas 6 - 7 : Van de redaktie 

ras B 3 Dislcat 

pas 3 : Catton 

pas 19 — 15 t P-charme procedures. 
eas 15 : Schakelktok 

pas 1ú — 18 : Recursie 

pag 18 — 139 : Tablist 


pas 23 — 21 Data read restore 


pas 22 — 26 Music-paper 
eas 26 Locket i les 


Turtle-sraphics 

Random file's 
Grarhic-Compres 

Orseitje 

De 6522 VIA 

Fast fourier transformatie 
Joystick-uitteesroutine 
Backup disk to tape 

Extra statements 


pas 27 - 29 
pas 31 — 35 
pas SE — 57 
vas 38 

sas 59 — 49 
pas SU — S2 
eas SS 

pas 54 — BB 
pas E61 — Bú 


Circte 

Flash 

Invert 

Info 

Tcopy 
pas 65 — EE 3 Joystick aanpassinaen 
pas EB : Wave 
pas 67 1 Knipeerende Cursor 
pas ES — 7E 3: Minias 
pas 7E * Dneiliners 


Intikken en Runnen maar 
Snel lezen 

SD-ptot 

Aanschuivende Titels 
Draak 

String functie's 
Vaatdoek 

Palindroom 

The A-TEAM 


pas 74 — 78 


Naar we hebben vernomen Komt in het septembernummer van ELEKTUUR 
een superdetuke TELEFOON-MODEM. De prijs zat er echter ook wel naar 
wezen, LET DUS OP ELEKTUUR, 


HEEFT U DE ENGUETE REEDS INGEVULD. ZONIET DDE HET DAN VOOR 15 JULI, 


ACORN NIEUWS Uitsave van Fed. Acorncomputerciubs N/B 
Verschijnt 8 x per saar. 
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In de jaarlijkse alsemene tedenversaderins op 19 maart 1984 is 
gesteld dat de Alsemene Versaderins in 1985 saat bepalen ut het 
bestuur van de federatie vitsebreid wordt tot 5 personen. 

Inmiddels heeft het bestuur 2 leden bereid sevonden om als adviseur 
aan de bestuursversaderinsen deel te nemen en wel Rudi van Drunen 
uit Delfzijt en Henk Reinders uit Groningen. Eerstsenoende Civ. m 
studie tijdelijk) namens de härd-ware commissie en de laatste voor 


het Acorn Nieuws. 
BELANGRIJK. 


In verband met de veie werkzaamheden, die de penningmeester Gerhard 
Visser heeft: is in de bestuursversaderins van 19 mei j.l. bestaten 
om de werkzaamheden te splitsen 
Vanaf 15 ausustus 1984 wordt de ledenadministratie volledie door de 
penningmeester verzorsd. 
Alte correspondentie hierover dus UITSLUITEND via 
G. VISSER, 
HARINGVLIET 231, 
8832 HL ZWOLLE 
TEL @58 — S4ESE1 
Alte betalingen op eostsiro 5244293 of bankrekening 9 
t.n.v. Acorn Computerctub 

te Zwolte 
Vanaf 15 ausustus 1984 wordt de lteverins hardeware: Software, 
drukwerk: boekjes en vorise jaarsansen van ACORN NIEUWS voiledie 
door de voorzitter Theo van Kempen verzarsd. Voor individuele 
bestellinsen (omdat U niet reselmatis de resiobijeenkomsten 
kont) moet U f. 4.00 overmaken voor porto en verzendkosten. Alle 


„52.87.287 











andere bestellingen zullen als reset een Keer per maand franco aan 
de resio sezonden Worden. Ter voorkoming van abuizen en 
vertrasinsen bij bestellingen steeds de rehio opaeven Calsmede de 


eisen naam indien dit individueel sebeurt). 
Alte correspondentie hierover aant 
Th. van Kempen: 
Het Purven 71, 
5672 RB NUENEN 

Tel D&B - BIEZID 

Atte betalingen op bank rekening 52.84.69.010 

ten.v. Acorn Computerctub 

te Eindhoven. 

tpostsiro 1150998 ABN Eindhoven) 
Voortaan zalt in etke Acorn Nieuws vermeld worden welke artiketen iT 
voorraad Zijn. Indien uitverkocht zal vermeld worden wanneer de 
vermoedelijke leveringsdatum iS. 


Het Bestuur 
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5 Jul 
20. za UUR 
30 JULI 
28.08 UUR 

3 AUG 
19. 58 UUR 
21 AUG 
20.20 UUR 
25 AUG 
26.80 UUR 
24 AUG 
208.30 UUR 
25 AUG 
14.88 UUR 
27 AUG 
28. 85 UUR 


1 SEPT 





2.30 UUR 
3 SEPT 
20.00 UUR 
3 SEPT 
28. 08 VUR 
& SEPT 


23. 30 UIR 


1384 


1384 


1884 


1954 


1984 


1384 


1384 


1984 


1984 


1384 


1584 


1984 


BRABANT 


ROTTERD 


LIMBURG 


BRABANT 


CENTRUM 


DEN HAAG 


DV/GELD 


ROTTERD 


NOORD-H 


ARNHEM 


DELFT 


BRABANT 


GEBOUW B. R. A.N. 
HEVEL 7 
VORSTENBOSCH. 


SPEELTUINGEBOUW HET WESTEN 
SPAANSEWEG ZB 
ROTTERDAM-WEST, 


ZAAL HUIVENEERS 
STATIONSSTRAAT 35 
SITTARD 


DE WERFF 
V/D WERFFSTRAAT 
EINDHOVEN. 


DE LANTAERN. 
UTRECHTSESTRAATWEG 4 
NIEUWEGEIN. 


EXODUSKERK 
BERESTEINLAAN 
DEN HAAG. 


WIJKCENTRUM DE BOLDER 
DOBBE E2. 
ZWOLLE. 


SPEELTUINGEBOUW HET WESTEN 
SPAANSEWEG 28 
ROTTERDAM-WEST. 


DE KOPERENKNGOP 
LIMBURG VAN STIRUMSTRAAT 
AMSTERDAM. 


t.o. POSTGIRO 
VELPERWEG SE-A (kelder) 
ARNHEM, 


E-KAFE 
GEBOUW ELEKTRA TH WIJK 
DELFT. 


GEBOUW 5. R‚ A. N. 
HEVEL 7 
VORSTENBOSCH. 


PA E [ACORN NIEUWSfVAN DE REDAKTIE 

Inderdaad 859 pasina's deze keer, Waarschijnlijk door de 
vakantie-stemmine is de aanvoer van copy eniszins sestaanzerd. Ook 
hêbben wij van enige resio's seen bladen ontvansen. Indien Uw 
resioblad niet vermeid is geweest wordt U vriendelijk verzocht deze 
alsnoe op te sturen. 








REGIG-BLADEN. 

De volsende resiobtaden mochten wij ontvangen: 

Acorntjesbrood uni 1984 (TWENTE) 

De zomputer en de Wet van Murehy. BACKUP. Inpeutbuffer verlensen. 
Sierpinski curve. Quicksort. Word-eack op 5ú kolommen breedte 
Symbolische assembter, Tip voor RAMmers, Procedures in P-CHARME 
DEMO voor deolthofsenerator. B@ kolommen VDU. PLS-E-bus sp 
synthesyzer. Fourier transformatie. Toekomst i ve vitbreidine 
Symbolische assembler. Sourtce-bleeker. 

Atomix nr. 18 (DELFT) 

De ATOM spselt "THE A-TEAM", Guick-sort, Mathemathiek. Beeldscherm 
wisselina. Diverse artiketen oversenomen vit andere bladen, 

De Stacker juni 1984 (NOORD) 

Print routines vit de basicinterpreter en monitorrom. TABlist. 
Random files, Een ruimtelijk plaatje. Statement Info. 

ROM nr. 3 CROTTERDAM) 

P-CHARME + Schakeikaart,. Lijst van statements en commando's wit 
verschillende boxen. Statitische berekeningen: standaard deviatie 
en correlatie costficient. 

Newslettter nr, 5 CBELGIE) 

Universele aansluiting MDCR. _DATA-lister. Prosramma etotter. 
Uiteenzettins over machinetaal prosrammerern. Opstaamethode's. 16 
bit 6582. Computer technolosie. Interfacetechnieken, vergelijkende 
test van printers. Zero-pase overzicnt wit RCORN USER. (netaas met 
touten) Witeenzettins over de VIA, Busstructuur voor ge ATOM, 
Diverse overdrukken vit andere resio-biaden. 





In diverse resiobladen komen wij overdrukken teaen uit 


tijgschritten. Deze bijdrasen kunnen Wij niet opnemen: daar wid 
niet in conflict willen Komen met zaken als auteursrechten e.d 
REGIOBIJEENKOMSTEN: 


Door het hele land worden resionale bijeenkomsten sehouden. Niet 
iedereen Schijnt daar Oom uiteenlopende redenen te komen, Toch heeft 
een bezoek aan deze bijeenkomsten het voordeel, dat U actueet op de 
hooste bent van de Ontwikkelinsen in de club, Software welke door 
de redactie aan de regio’s wordt toesezonden wordt daar meestal OOK 
driftis seropieerd. 


INHOUD SCHIJF JULI 1984: 


#BACKCOP 2208 24F3 OOIDY BEZ A.N. nr. & biz. Sá 
BACKUP 4008 GEFD OOFAA BOS AN. nr. & biz, 54 
#PART-2 2509 C2B2 OIBDD B14 AN. nr. à blz, Sá 
WELCOME 8098 C2B2 B1E0B 22E A.N. nr. & biz, 54 
VEXPLAN, E30 C2B2 B18B 47 A.N. nr. & btz, Sá 
CIRCLE 2988 AFAF DB4AS BED AN. nr. G biz. E1 
FLASH Z902 AFAF DB4ES DES AN. nr. & biz. El 
INVERT 2988 AFAF O®27B BEA A.N, nr. & biz. EZ 
INFO 2908 AFRF DAZDE BED A.N. nr. & tz. EL 
TCOPY 2350A DEAF BADDE BTB A.N. nr. à biz, BT 
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DISCAT 2320 AFAF 28593 B73 AN. nr. 4 biz. 8 
CARLTON 2308 RAFAF G847B B73 A‚N. nr. á& biz. S 
ATOMIST 2200 202% BE22A BIE superdran tekenins. 
TRAP 2809 CEBB @1499 ODE toesevoesd spetletie. 
POINTER 2500 CESE ©1408 BF2 toesevoesd speltetje 
FOURIER 2999 C2B2 GODEF 185 A‚N. nr. 4 blz. S@ 
MINIAS 2309 AFAF GBES4 114 AN. nr. 4 biz. Sá 





PRINTEN: 
De schaketkaart en seheusenkaart worden op dit moment opnieuw 
setekend. Enise belanari ike verbeter insen worden meteen 


medesenomen. De verwachting is dat deze kaarten in september 
wederom leverbaar zijn. Voor de mensen die dit werk uitvoeren is 
het een hele klus zedat U hopelijk nos enis Sedutd kunt betrachten. 
De print en kiok-IC voor BIG BENNY zijn momenteel in bestellina. 
Aansezien de IC's zich ersens tussen JAPAN en NEDERLAND bevinden is 
het op dit moment van schrijven Niet moselijk exact te zessen 
wanneer Leverbaar. 


ATOM-WARE 

Het boekje Atom-ware welke door de federatie is wuitgeseven bevat 
een vertaltins van de “esroene assembler" pasina's vit de manuäl. 
Tevens is er een disas-lijst van de basic-intererester in opsenomen 


welke voorzien is van vittes. 

Het tweede deeltje welke in voorbereiding is, zat een disas-lijst 
met uittes bevatten van de DOS-ROM en MONITOR-ROM, Vermoedetijk is 
dit boekje in september sereed, 


DE ENQUETE. 

Er zijn op dit moment ongeveer 208 enauete tormulieren terus 
ontvansen. Ondanks dat dit een mooi aantal is doen wij nosmaals een 
beroep op iedereen die de enquete nos niet heeft opsestuurd: dit 
alsnos voor 15 juli te doen. Het is belanarijk dat zoveet mogelijk 
leden deze enavete insturen: om een zo evenwichtig mosetijke beeld 
van de verenisinsen te krijsen. 

Op diverse formulieren (en dat was te verwachten) staan nos at eens 
persoonlijke wensen vermeld. Het honoreren van deze wensen “op 
bestetlina" is bijna onmogelijk. De belansrijke vraaa hierbij is 
natuurtijk wie doet het. Vaak zijn deze wensen ook maar voor een 
enketina interresssant want zoveet ieden ais we hebben zoveel 
ideeen zijn er wat er moet worden sedaan en niet gedaan. 

Ook hebben wij sezien dat er diverse zaken ontwikkeld zijn waarvan 
Wij tot nu toe Sten weet hebben. Stuur Uw ontwikketingen in want 
copij kan iedere resin voor zijn resioblad best sebruiken. 


INTIKKEN EN RUNNEN MAAR, 

Dit is een rubriek voor listinss waarbij weinis commentaal nodis 
is. Het is echter wel wenselijk deze listings van een auteursnaam 
te voorzien en bij Uw resio in televeren. Bijna iedereen heeft wel 
eens iets seproerammeerd maar niet opgestuurd. Als we dit nu eens 
met elkaar wel doen komen er noe meer verschillende prosramma's in 
ans lijfblad. : 


HET VOLGENDE NUMMER. 
In de maand Auvsustus zal er seen ACORN NIEUWS verschijnen: zodat U 
het voltsende nummer in september tesemoet kunt zien. 
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1OREM DESKCAT 

ZOREM VERSIE j FRANS LE BLANC 
SOFAST 

LO HZI=DE WZ HEE 

SBLINKKEZDE : *L. FCAT 

EOD IMA7 + GOS. f 

7OR=DIF. N=RSLOSTORE7FFS. #10E 

SBRER+IN/BEN, + H=0 





30P.s12" DISKCAT""" ;?#E1=D 
180P. * CATALOGUE - KEY 17 

A1GP. * PROGRAM = KEY 2"" 

120P. * NUMBER OF FILES: “R'" 


15ODOKEYIs U, I=SLORI=#S2 

148IF I=#52:G. 190 

15BIN. “TYPE DISKNUMBER "$A 
1EBIF$A=""; GOS. 256. 90 

17@IF VALA)54 OR VALA(=BIP. H1iJLINKKFEZZ:G, 150 
189GOS. 15 G. 98 

19BIN. “find “SA: IFL. A 7ORSA=" "iP, S1LGLINKHFE2E:G. 190 
200$#140=$A1D=2 

210F, N=1T054; Be (N-1) #1 OE+#300D 

228COPY B, B+#107, #2000; D=? #21 05+#2005 
250r. I=#200F TO G 5.8: I=#DEN, 

24DLINK Z 

ZSON. ;P.' "ready — PRESS KEY";BEEPZU, SsL INK#FFES:G, 90 
ZED HEL=HSDIE. 

270as=2iN=DIDO NEN+153P, $12 

<88G0S. c 

29EP. “PRESS CONTROL TO STOP" 

3@DGOS. d 

SIBLINKHFFESSU.N=54 OR?#BGBI=L91 R. 
328La=25 IN=VAL A 

338605. csP. “ “:GOS.d 

34 OL INKKFFESSR. 

ZSOCP. $125 BECN-1) *#1DE+HEDOD 

Z6BCDPY B, B+#107: #2000 

S7OLINKHE2SA ?HE1=DBER. 
E8B4CU. 12, 058=23P, " DISK *N* "ik, 
SSBFREM FINDROUTINE 

LOOD IML 7: Zet 2880 

4IOF, N=OTO7 sLLN=GEN. 5P. $21 

4620F. N=BTOi$P=ZI EC 

43O:L1L0 LDXABISTKHAEISTKHSGISTKH2TE DEK 
G4B:LLt LDYAO 

4SEILLZ INXSCPX#2105: BEOLLESLDARI4O, Ys CMPOEDs BEOLLS 
GEGCMP#20DB, X5 BEGLL7 
470CPYAE:BEGLL2; DEX 5 JMPLL1 

4EB:LL7 INYs:BMELL2 

4S3D:LLS TXAFANDA#FB; PHA: TAX 

SOB:LL4 LDAK#20B, Xs; CMPAKD: BEG LLS 
SIDISRAFFF 45 INXs DNELLG + TXA3 PHA 

S2@:LLS JSRHF7D1: JI 

S38$P=" DISK ";PePeL, P:E 
SGOLDAKT2F ; STARLEIJSRKCSE: JSRHF IFD 
SSOPLAICLC+ADCA7 5 TAX 5 JMPLL1 

SEB:LLE RTS 

S7OIIN. *P. SER. 
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i8 PROGRAM CALTON 

20 ZERO:GOS. 408 

30 DIMVS: !V=k040E1 020 V! 4e192 
48 PROC LOOK 

SB PaX/E+(4T-V)/IKE2+E5000 

EB BECIPELVICKEIHLGZ-VI KERDI) 0 B) 
78 PEND 

88 CLEARG ; P.$50$757;0=0 

30 HTABE:P. “TOESTEL VAN GALTON" 
188 FOR X=358 TO E64 5,6 

118 FOR Y=8T010 


120 MOVEX, Ys DRAW X, Y 
138 NEXT Y 
148 NEXT X 


159 Y=18;5A=5; B=66 

168 DO Y=Y+EiA=A+EIB=B-3 
178 FOR X=A TO B 5.6 
188 MDVE XY 

198 DRAW XY 

208 NEXT X 

218 UNTIL Y)=40 

228 FOR B=1T0 K 

258 P.$T0,B3BEEP 20, 40 








248 Y=45IX=3S 
258 DO Y=Y-1 
268 LOOK 


278 R=A,R. #23M=53 IFR Me-M 

288 IFQ AND Y)18 X=X-M 

238 PLOT 14,X,YsPAUSE 1U5PLOT 14:X, Y 
300 LOOK 

319 UNTIL @ OR Y=-1 

328 PLOT 1E,X, CY+1) 

328 NEXT B 

348 FOR B=1TO4OIBEEP(A.R. #10+20); ZO: NEXT 
350 LINKEFFES s RUN 

«8 P.siz TOESTEL VAN salton"* 

“MET DIT SIMULATIE MODEL KUNT UP? 
“EEN PROEF UIT DE STATISTIEK" 
"DEMONST REREN, “7 

"HIERBIJ SIMULEERT HET EEN"' 
"VALLEND KOGELTJE LANGS EEN ** 
"BORD MET SPIJKERTJES. *' 

470 P, "DE KOGELTJES KUNNEN ZOWEL LINKS"? 
480 P. "ALS RECHTS VAN DE SPIJKERTJES"" 
"VALLEN, ** 

DIT GEBEURT UITERAARD ZUIVER"? 
518 P. “WILLEKEURIG. "? 

528 P, "HET AANTAL KOGELTJES BEPAALT" 
538 P. "U ZELF, "s IN, * HOEVEEL "K 

604 RETURN 
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P- CHARME PROGEDURE'S 


Ik zou iedereen willen aanraden om voortaan Sebruik te saan maken 
van P-Charme. Het werken met een sestructureerde taat maakt het 
prosrammeren veel prettiser, at is het in het besoin wel „ven 
wennen. Door nu de Kennisdrempet wat te verlasen: hoop ik dat meer 
mensen het voordeet van P-Charme in saan zien: en eventveel hun 
Josbox voor P-Charme witten inruilen. 

Heat eerste dat aan een procedure opvalt: is de naamseving, die je 
nu zinnis kan kiezen. Je kiest dan een naam die past bij de funktie 
die de procedure moet vitoefenen. Hierdoor wordt het Programma dus 
veel leesbaarder, en dus zinniser. Nu moet aan de Basic wet de 
procedure bekend zijn: zodat we bij het besin van het Prosramma: na 
het statement PROGRAM eerst oversaan Tot het declareren van de 
procedure (zoals dat heel mooi heet).Dat saat als volet: 


PROC pietje 
biaiblatbia 
PEND 


Ais de Basic dit tesenkomt: dan weet hij in het vervolg wat pietje 
moet doen. Belansrijk is dat hij hem nu NOG NIET uitvoert, maar pas 
na de aanroep “pietie“. Dit in onderscheid met de GOSUB's. De 
aanroep "pietje" is hierna hetzelfde ais voorheen GOSUB pietje 
(voor zover dat natuurlijk moselijk was). 

Nu zouden we pietje sraas als een apart soort prosrammaatie Witten 
zien: die tos staat van zijn omvattende hoofderaosranma. Een 
probieem is dan op te splitsen in een aantal zinnise deziorobtemen, 
en die zijn dan te implementeren als procedures, die door een 
prosramma bij elkaar worden sehouden. Zo kunnen we dus at wat orde 
in de chaos scheppen. Dan zou het mooi zijn ats we ook noo de 
beschikking hadden over een schone set variabelen, die niets mest 
te maken hebben met het hoofderosramma. Dat kan: variabelen die 
ätleen binnen de procedure worden sebruikt: noemen We locaal ten 
opzichte van die procedure. De waarde van zo'n variabele is buiten 
de procedure niet bekend. Omsekeerd kan een variabele buiten de 
procedure bestaan. Zo'n variabele noemen we globaal, De waarde van 
een stobale is binnen de procedure wet bekend, tenzij binnen die 
procedure weer een variabele het levenslicht ziet (declaratie) met 
dezelfde naam als de slobate. Dan is die variabele met die naam 
plotselins locaat seworden. 

Zo kan buiten: en binnen de procedure dezelfde variabele meerdere 
maten voorkomen: met verschillende waarden, Het onderscheid 
Slobaal-locaai maakt het moselijk om binnen zen procedure wat te 
knoeien met een variabele A, terwijl buiten de procedure A niet van 
waarde verandert. Stet dat pietje een locale A heeft, en pietje 
roept binnen pietje weer pietie aan (recursie) dan is A platsetins 
Ex bekend. De A van de binnenste pietje is alleen locaal seldis, de 
buitenste pietje kent de binnenste A niet, En de A var de binnenste 
pietje kent de A van het buitenste Pietie miet, omdat we A binen 
pietje weer locaai hebben sedeclareerd: dus simbale A's komen te 
vervatien. Is dat nou niet moeitijk te onthouden, waar welke A 
geldt. Io op het eerste gezicht lijkt dat van wel, maar tüch iS dat 
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niet zo! Het maakt zelfs het prosrammeren veel eenvoudiger, en 
voorkomt fouten: doordat binnen pietje A voor iets anders sebruikt 
WOrdt dan buiten Pietje: waardoor piets;e dus de A buiten pietie aan 
het verknoeien iS, 

Hoewei U het waarschijntijk ny nos miet zo ziet, het is zo veel 
overzichtelijker. 

Nu moet de Basic wet weten: Welke variabelen locaal zijn, en welke 
Slobaal, De resel is ats volst: 

VARIABELEN ZIJN ALTIJD GLOBAAL, BEHALVE ALS ZIJ EXPLICIET ALS 
LOCALEN OPGEGEVEN ZIJN, 

Dat tocaatl maken van een variabele naam sebeurt door achter de 
procedure declaratie de haam van die variabele op te seven: 


PROC pietie,A: EC 
blatblaibla 
PEND 


A, B en C zijn nu 1ocaai. 
Maar nu Willen we Waarden van sicbalen aan tocalen doorseven. Dat 


gebeurt via een soort van interfacé-ie dat de procedure heeft met 
de omgeving die hem aanservepen heeft: (de parameterlist) 


PROC pietjetA: B: 6) 
blasblatbla 
PEND 


Nu zijn A: B en C ook locaal: maar zij krijsen de waarden die bij 
de aanroep van pietje wordt meeseaeven. Voorbeeld: 

pietjerD:E,F) roept pietje aan: waarbij de locate A de waarde 
krijst van de stabals D: etc. Je ziet dat met het aanroepen van 
pietje ook waarden worden meegegeven, terwijl de niet HOEFT te 
weten naar welke Iwcalen dat binnen Pietje gaat. We abstraheren ons 
dus van de inhoud van pietje maar We hoeven alleen te onthouden: 
welke betekenis duarseseven waarden hebben in pietje. 

Nu Kunnen we bìd het doorseven van waarden onderscheid maken tussen 
2 sevailen: 


=i- De waarde van D wordt aan A doorsegeven: en bij het beeindisen 
van pietje wordt de waarde van A weer aan D terusseseven. Dit is 
senlijk hetzelfde ats D stobaat houden binnen pietier altteen weet 
sietie nu niet wie die slabate is. 

Pas bij de aanroep van pietje wordt het piatje duidelijk dat D die 
siobale isen his noemt hem locaal A. Pietie vergeet dan de GLOBALE 
A: hij heeft de raam A inmers tocaalt semaakt. De locate variabele A 
wordt in dit aeval var-parameter sennamd (van variabele). De toeter 





achter de declaratie van Pietje Wordt parameter lijst Senoemd. 
=2- Bij het tweede seval Wordt de waarde van D wel aan A door 
seseven: maar bii het beeindisen van Pietie niet aan D 


terussegeven. Deze worden valve parameters Senoemd, omdat eenmalieg 
de waarde (value) wordt oversedrasen, 


Hoe weet de Basic nu wat valve: en wat var parameters zijn? De 
parametertist iS hiervoor àls valst OoPpsebouwd: 

(value, value: valves var, var: var) 

De var's masten dus aitijd achter een dubbele punt Komen te staan. 
Voorbeestd: 


PAG. 12 [ACORN NIEUWS [P-CHARME PROCEDURES [THEO DEN TER 


(valve, valuervar) 
(value) 
Crvar: var) 


Door nu verstandie te Kiezen welke variabeten we slobaal, en welken 
we locaal zullen beschouwen: en te bepalen welke variabelen we Op 
weike wijze aan de procedure mee zullen seven, kunnen we veel 
verstandiger prosrammeren. Zo behoeden we ons voor de iwerkinsen. 
die het veranderen van de waarden in variabelen elders in prosramma 
alsnos blijkt te hebben (side-effect: en waar we niet op stonden te 
wachten). 

Een ander aspekt van procedures is dat recursief prosrammeren 
moseiijk wordt. Een heet eenvoudis voorbeeldje van de redenatie die 
hieraan ten srondstas liet. Stel: iK wil N sterretjes afdrukken. 
Ais je het probleem een beetje lui saat staan bekijken: dan kun je 
de volsende redenatie ophansen: "Wet,ik druk 1 sterretje af: en 
voor de rest zorst mijn buurman maar”. Maar mijn buurman is al net 
zo slim als ik Chum) en is COK at zo tui. Ook hij seeft een deel 
van het probleem door aan zijn overbuurman. Enfin, na een tijdie 
kwam iemand tot de ontdekking dat er niets meer te doen viel. 
Opselost dus! In prosramma vorm? 





PROC STARCND 
IF N@ THEN PRINT"*"; STARN- 1) 
PEND . 


Dit wordt nu recursie senoemd. Binnen de procedure star wordt 
omwitte van de redenatie: star weer aangeroepen. Een hete handige 
manier van psroeramma’s schrijven! 

Nu is er cok nos een broertje van de procedure: de functie. Bij de 
functies saat het er net zo aan toe als bij de Procedures, behalve 
dan dat een functie perse iets moet opleveren.Een functie levert 
een waarde op: die in een Basic expressie weer sebruikt kan worden: 





FUNCTION TEL-OPCA, B) 
TEL-OP=A+B 
FEND 
IF TEL-OP(2, 5)=5 THEN P. "KLOPT" 


Het IF statement levert “klopt” op. Natuurlijk kun je in de 
parameterlist ook var parameters hebber, zodat via de var parameter 
ook informatie aan de omsevine van de functie door seseven kan 
worden. De functie is bid voorkeur geschikt om data vanuit een 
procedure door te seven, zonder daar een variabete aan op te 
offeren. 

At met aft is het een puinhoop seworden.Het overzicht iS riu weg, en 
wat moet ik nu doen in welke situaties, 

Wel, even de zaken op een rijtje zetten: 


=i- Prosramma-constanten, zoa's hoeveel beurten een spel bevat: 
kunnen meestal het beste stobaal sehouden Worden. Ze zijn dan 
altijd bekend. Reserveer hier dus een aantal variabeten voor: die 


dan niet locaal mosen zijn binnen een procedure 

:- Haud binnen een procedure zoveel moselijk variabelen locaal. 
Deze beinvloeden het aanroepende gedeelte niet (side-effect). 

-3- Geet parameters zoveel mosetiik door in de parameterlist. Dan 
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zijn ze ook locaal. 

=á- Als iets by valve doorseseven kan worden: i.p.v. via een var: 

doe dit dan. Dan kan de waarde niet terusseseven worden, en de 

verwerkins daarvan blijft dus locaal, . 
=5- Levert een procedure een enkel resultaat oPpswat met de naam 
verband houdt: kies dan voor een functie. 


Dit hete verhaal was wet een beetie ers theoretisch. Zo heeft de 
P-Charme interpreter ook zo zijn beperkingen: waardoor het hele 
verhaat niet altijd opsaat. Ze kunnen er seen FP-variabelen door 
functies oporteverd WOrden. Bovendien blijven we een hobby 
vereniging. Maar het fundamentele “waarom? en zo zou het eisenlijk 
moeten" wat achter het ontwikkelen van P-Chnarme zit: Blidft 
hetzelfde. Een hete soede verbeterins dussen ik hoop dat de meeste 
leden in de toekomst zo verstandis zullen zijn: P-Cnarme in hun 
geliefde ATOM-pje te monteren. 


nnen 
nnn nd 


Met onderstaand prostamma, beschikken we over een schakelklok 
die tevens de disitate tijdsaanduiding aanseeft (in srote 
cijfers). 

Ik heb pin ZS van PLE aan de +SV, en pin E2 aan de DV van een 
solidestate relais sehansen, zodat ik Z228V kan schakelen. 


18 REM SCHAKELKLOK 

23 REM TINY VERSCHUREN 
58 REM GEBRUIK JOSBOX 
4D DIM ACS) 


58 d=2 

58 ?#BSDZ=HED 

78 P‚$12 

58 P,“TYD INSTELLEN AUB *"" 

Os IN. "UREN "KsIF 23 TP. $iirG. a 
18BHIN, “MINUTEN “Ys IF Y59 T.P.$113G. h 


11@:IN. "SECONDEN “ZiIF Z)59 TP, $115G, i 
128 P‚' 5 APPARRAT SCHAKELEN (JA/NEE) "SA" 
JA"T.G. ó 

148 IF $R="NEE"T. GO, k 

158 P.$11611:G. 128 

188; P, "APPARRAT AAN ** 

17O1IN. “UUR “BsIF B)25 T.P,$1156. 1 
1EBmIN. "MINUTEN "C3IF C)59 T.P,$115G, m 

198 P." "APPARAAT UIT ** 

28On IN. “UUR “DiIF D)2E T.P,$1i1:G.n 
218oIN. “MINUTEN "EsIF E)59 T,P.$11:6G,0 
Z2BKGRMOD + ?#E1=05 CLEARI 

23BFP, $11S11* JUISTE TIJD""" “Xt 8 WYN 3 “Z° 
243 FOR 1=0 TO 2128iN. 

258 IF Z=59 AND Y=59 AND X=25 THEN Z=05Y=0; X=07G. f 
260 IF Z=59 AND Y=59 T. X=X+i57=0;Y=0I0. f 
278 IF Z=59 T, Y=YrliZ=8iG. f 

280 Z=Z+1;IF X=B AND Y=C T, #B00Z=#E0 

230 IF X=D AND Y=E T.?#28D0=5 

308 G. £ 

10 END 
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Recursie is sen prosrammeertechniek die in vele sevailten een 
krachtise formuterina van een algoritme (='recept') moszlijk maakt, 
Tot voor kort was stechts zen zeer beperkt gebruik van recursie 
maselijk met onze Atom (zie Atomic theorie k practice pas. 42/45), 
echter met de komst van de P-charme is OOk deze luxe binnen ons 
bereik aekomen, 





Wat is recursie precies ? 


We noemen een algoritme recursief ats deze bij uitvoerins zichzelf 
kan aanroepen. 

Grof sezesd is sen atsoritme recursief als deze o.a. in termen van 
zichzelf sedefinieerd is. 

Dit zelf-definierend effect Kan direct of via (via-viar..) 
verlopen, 

Zo'n alaoritme is in ons geval een stukkie prosramma dat we de naam 
PROCEDURE of FUNCTION kunnen seven. 

Recursie is de "tesenhanser' van iteratie: wat 'herhatina’, 
‘opeenvolgins’ betekent. 

Vrijwel alle prosramma’s die in ons handboek en in ons lijfblad 
Zijn sepubticeerd valten onder deze laatste noemer. 


Wanneer sebruiken we nu een iteratief: en wanneer een recursief 
alsoritme ? 


Dovraaans kunnen we ons door de aard van het op te lossen erobleem 


taten leiden. 
Als het op te lossen Probleem is op te splitsen in een eenvoudie 


geval dât we ‘direct’ kunnen oplossen en een restprobieem dat 
setijkaardie is aan het oorspronkelijke probleem maar kleiner van 
omvans, dan roept dit om een recursieve formulering. 


Een voorbeeld: het afdrukken van een strins met onbekende lenste. 


We maken een procêdure PRINTSTRING die a!s invoer het startadres 
van de af te drukken string heeft 


We bedenken ons dat het afdrukken van een lese strins (alleen de 
terminator 't3' ofwel “return') simpet is: we hoeven dan niets te 
doen! 

In het andere geval, ats de strings niet iees is, drukken we het 
eerste teken af: en bemerken tot onze verrassins dat het probteem 
dat daarna ope te lossen iS, hetzelfde is als dat waarmee we 
besonnen, maar dan van een lenste die 1 teken kleiner iS. 

Hoe dat moest wisten We at, ni, als deze strings niet lees is, dan 
drukken we zijn eerste teken af, etc. 

Schematisch voorgesteld: stel we wijten ‘HALLO’ afdrukken. Laat nu 
tedere aanroep van de alsoritme voorsesteid worden door een 
open-haakie en elke atstuitine door een stuithaakje: dan krijsen 
adeakd 
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in €) KOMT de aiscritme tot de Ontdekking dat er niets te doen is 
en keert terus naar de aanroeper, die ook klaar blijkt te Zijn en 


teruskeert naar zijn aanroeper etc, ot we weer in het 
hoofderosramma zijn aanseland. 
Allereerst maken we en forsuérins van de aisoritme in 


biinarspreektaat: 


PROC PRINTSTRING (adres) 
IF lese strina 
THEN doe niets 
ELSE print eerste tekens 
PRINYSTRING (adres + 1) 
FI 
ENDPROC 


Heiaas Wordt deze tormytlerine niet door de Atom besrepen en daarom 
moeten we iets nauwkeusiser zijn (overisens verdient het zeker 
aanbeveling om bij het oc stellen van een niet-simpel probieem >en 
eerste formuterins in deze ps@eydo-Computertaat te maken: waarbid 
gedeziten van de latere , osrammatekst Worden samengevat onder een 
naam die Slobaal aanseef (niet in detait beschrijft) wat er in die 
parasraaf sebeurt of se:euren moet: waarbij in de icop van de 
ontwikkeling de samenvattingen steeds verder worden Uitsewerkt: de 
techniek van de stapssewijts verfijning: maar hierover meer in een 
voisendie serie) artikelten)): 


PROC PRINTSTRING CA) 
XIF ?A=12 THEN REM doe niets 
ELSE PRINT $C?2A)$ PRINTSTRING CA+1) 





PEND 
ot nos iets fraaiert 


PROC PRINTSTRING (0) 
IF A13 THEN PRINT $&(?A): PRINTSTRING LA+1) 
PEND 


Natuurlijk is dit een eenvoudie erosramma dat zich net Zo m “kelijk 
iteratief laat tormulterent 


PROC PRINTSTRING CA) 
WHILE 2AO 13 
PRINT $(2A) 
A=A+1 
WEND 
PEND 


maar er zijn vele problemen denkbaar waarbij een recursieve 
ppiossins niet alleen natuurlijker: maar ook veel eenvoudiser te 
formuteren is, 


Een voorbeeld: 


het afdrukken van Ssetat len in het tientaltti:s stelsel. 
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Dit is al iets ingewikkelder, want het cijfer dat we het eerst 
moeten afdrukken is het meest linkse en het moeilijkst bereikbaar: 
stel je wilt 456 afdrukken. 

Dan moet je eerst bepalen welke 10-macht nos juist Kleiner is dan 
het getal (1809-1012), deze er zo vaak maselijk van aftrekken (saat 





be), afdrukken hoeveel Keer dit kon (4), vervolsens van de vest de 
hoosste 19-macht beeaten etc. (dit is al een recursief recept, 
hoewet in een onhandis sekozen volgorde). 


Het kan selukkis eenvoudiser. 

Afdrukken van een getal dat uit 1 cijfer bestaat is heel eenvoudig, 
Ais we nu een setat van bijv. 4 cijters willen printen, dan drukken 
we sewoon eerst het setat dat uit de eerste 5 cijfers bestaat af: 
en daarna het laatste cijfer, wat we doen door de eerste 3 cijfers 
at te drukken: dan het laatste van de Z: dan het laatste van de 4, 
ete. 

Schematisch? 

CIZEA) EN (1ZECAID ED LRE Ch) CACZICEN CAD DD CCA CED CDD 


We zien dat het setal bij de staart wordt afsevreten totdat het 
seheel in stukken iS. Op dat moment pas kan er seprint worden omdat 
het eerste cijfer dat we witten afdrukken het laatst beschikbaar 
Komt. 

Het fijne nu van de recursieve opiossins is dat we ons seen zorsen 
hoeven te maken waar al die andere cijfers blijven totdat ze worden 
geprint: dat verzorst ‘het systeem! voor ons (nt. op 'de stack! ). 


Hoe saat dit er nu uitzien? 


PROC PRINTGETAL (6) 

IF getal bestaat uit 1 cijfer 

THEN druk dat cijfer af 

ELSE druk setal af dat bestaat uit alte cijfers behalve het 
laatste: 

druk het laatste cijfer at 

FI 

ENDPROC 


iets meer precies: 


PROC PRINTGETAL (GB) 
IF ABSCO) (18 
THEN PRINT ABS(G) 
ELSE PRINTGETAL (6/10) 5 
PRINT G418 
FI 
ENDPROC 


in P-charme termen: 


PROC PRINTGETAL (6): 
8=1 3REM eik cijter wordt in 1 positie seprint 
XIF ABSCG) (18 THEN PRINT ABS(G) 
ELSE PRINTGETAL (6/18): PRINT GA1@ 


PEND 


(de toevnesina ',@’ betekent dat de variabele locaat is binnen de 
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Procedure: dew.z. dat deze binnen de procedure kunt veranderen in 
wat U wilt: bij het verlaten van de procedure heeft deze 
automatisch dezelfde waarde als voor de procedure-aanroer) 


Witten we ook nesatieve setallen correct afdrukken: met teken, dan 
wordt dit: 


PROC PRINTGETAL £5),5 


B=1 
XIF GO THEN PRINT “-"; PRINTGETAL (-5) 
ELSE XIF G{i4 THEN PRINT G 
ELSE PRINTGETAL (6/18) PRINT GX10 

PEND 
Oe zich is dit ats toepassins niet zo zinvol, de Atom kan immers 
setaiten afdrukken, en nos veel snelter ook? 
Echt leuk wordt het wanneer we aan de procedure wilten Kunnen 
meeseven in welk talsteisel we een bepaalde waarde witten 


afdrukken. 
Wet, dit is niet moeitisks 


We seven de basis ats parameter B mee aan de procedure, 
De tekst ('body’) van de Procedure Wordt dan als bovenstaand, 
waarbij '10' vervangen wordt door '8': 


PROC PRINTGETAL £G,B):& 


a=1 
XIF G{O THEN PRINT “-“; PRINTGETAL (-G, B) 
ELSE XIF GB THEN PRINT G 
ELSE PRINTGETAL £G/B,B); PRINT GXB 
PEND 


Roesen we nu aan PRINTGETAL (10,7) (Cin een P-charme prosramma 
waarin bovenstaande procedure bekend is uiteraard) dan Krijsen we 
‘13 te zien: zijnde 1*7ti+5#71r0: PRINTGETAL (16,4) seeft 22, 
zijnde 2Arl+2ehrD, PRINTGETAL C18, 2) seeft 1218, wat 
LERT EFORELEAIKDA IO 2ID ofwet H+D+2+0=10 in decimate voorstet ling. 
Afijn: experimenteer maar. 


Recursie is vaak een zo natuurlijk principe dat de eenvoud van het 
prosramma waarin het Wordt toesepast op het eerste aezicht doet 


vermoeden 'dit is zo eenvoudig. dit kan niet soed zijn’: taat u 
hierdoor niet in de war brenaen. 
Is recursie werkelijk zo'n ideale prosrammeertechniek, zonder 


nadelen? 

Hetaas: neen, 

De nadelen iissen opn een zeer sevoeiis terrein binnen onze 
hobby-setederen (in professionele krinsen overigens nos meer): 
nameiijk TIJD en GEHEUGENRUIMTE. Deze beide dure 'sorderen’ worden 
door recursieve alsoritmen i.h.â. ruimer geconsumeerd dan door hun 
iteratieve broertjes. 

Bis iedere aanroep van sen subroutine moeten er de nodise sesevens 
worden onthouden: oP de stack sezet (de P-rharne gebruikt hiervoor 
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het sebied boven de ‘free space pointer’ wetke correct wordt 
aansepast door een DIM statement: de ruimte boven TOP is dus niet 
teer automatisch veilig! !), wat dus extra (tijdelijk) asheusen kost 
en extra € voerines)tijd. 





Tijdsbesparins is echter te behalen bij het ontwerp van 
Cinsewikkelder) altsoritmen: in een extreem geval kan het zo zijn 
dat recursie de programmeur in staat stelt zijn broedsel te 
formuleren: omdat een iteratieve benaderina Te insewikkeld zou 
zijn!!! 

Bedenk dat de omzettins van een recursieve alsoritme in een 
iteratieve versie een standaard-methode is die op dit moment al in 
sommige compiters (vertaalproeramma's} voor professionste systemen 
is insebouwd: eenvoudise recursieve atsoritmen worden daar 


automatisch omsezet in een iteratief stuk code. 
Ik hoop niet dat bovenstaande bezwaren reden voor u zijn u niet te 


verdiepen in bovenstaande proceduretjes en U niet verhinderen om 
zetf eens met dit willie speelgoed te stoeien. 


mmm 
nd 
ee 
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Het idee achter dit prosramma is het volgende: 
Veel printers hebben een zon "Condensed” lettertype: waarbij een 


sroot aantal (b.v. 152) karakters op ween resel passen. De meeste 
Atom listings bevatten niet meer als 64 karakters op een reset. 
Waarom dan niet de listins in twee sedeelten uitsplitsen en ze 


naast elkaar uitprinten. Dat is wat dit prosramma doet. De 
stuurcodes zijn voor de ITTSSSi (Epson MX80) printer, en welt 

reset 5401 HOF = Condensed lettertype aan 

vreze! B18: #12 = Condensed lettertype uit 
Het prosramma is ook wet bruikbaar voor printers zonder een 
condensed lettertype, Vervans dan in reset 120: M=5E door b.v. 40 
(de helft van de maximale printerbreedte), 
Komen de reselnummers boven de 10000. vervans dan in resel 470 het 
setai 5 door 6. Dit saat echter wel ten koste van 2 karakters per 
resel. Men list door te LINK-en naar het startadres, (In dit seval 
TRAA) 
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Khalsa echo olla didi add 
* CONDENSED LISTEN IN * 
TWEE KOLOMMEN * 


10 
28 
3e 


REM 
REN 
REM + 
REM * 
REM # 

Ed 

* 


J. SIEGERS 
GRONINGEN 


REM 
REM 
REM 
DIM RRC1E) 

F.‚N=8 TO 165 RRN=300IN. 
P, “OGENBLIKJE'"" 

M=66 

P.$zi 

GOS, p 
GOS. p 

158 P. $6 

178 END 
i8deP=#&5A00 
1920 

ZEOIRRE LDARIT: 
218 LDYAO: STY#9D: 
228\bepal ins aantal 
230:RRI LDACHSD), V 
248 CMPAÉD5 BNE RRS 
253 LDXAHZEs JSRHFE7 1 
268 LDH), Y 

278 CMPA#FF: BER RRS 
280 JSRHFG71 
98 LDXOHEI: 
SOD:RRE2 LDXAHZE: 
Si0 JMP RRI 
52@\zoeken midden \istina 

iRRZ LDXOHE3: JSRHFG71: JSRHFG7L 


Etre 





148 
158 


STARII 
STY#9ZE: 
resels 


STY#94 


JSRHF671 
JSR#F67 i 

















Sâ@ LSR#&S4i RORHIS 
558 LDA#12: STAHSL 
368 LDYA@: STY#9D 
S7O:RR& LDACHSD), Y 
3E] CMPSHD: BNE RR6 
330 LDXAREI; JSRHFGES 
48 LDAKSS: BNE RRS 
418 LDAHI4: BNE RRS 


423 BEG RR7 
4&EBERRS LDXOHZE: 
L&BIRRE LDXOHZE: 
658 JMP RR4 

4EB\ tisten 
G7E:RR? LDAAS: STAHS2L 
4EB LDAKSA: STAHSS 

490 LPAHSI: STAHSS 

502 LDA# STA#34 

519 LDY9Q; STY#IE 

528 JSRHF7DI 


JSRHFE71; JSRÉFG71 
JSR#FB7 1 








1808 JSREF67 15 
1D1O:RRIJ RTS 
10203 

1330 RETURN 


5501 

540 'P=$ADGFGER2 

550 P=P+4 

SEL 

S7D:RRB LDA#ST: STAHIG 
SEB LDA#I4; STARST 

538 CMP#SI; BEC RRIS 
689 LDA#SE: CHP#98; BEC RRIS 
618 LDA 7 

625 CMPAM: BCC RRIEG 
538 JSRÈCD54: JMP RRIE 


E4AB:RRIS JSR RRIL 
RIG LDAAM; SEC: 
EEG:IRRIAG JSRHFTFD: 
678 LDXS1 

S8O:RRI LDAKIE, Xs STAHIE, X 
EIB LDA#IS, Xi STARIE, X 

789 DEX; BPL RRS 

718 INY;s LDACH35), Y 

728 CMPO#FF: BEG RRIG 

758 JSR RR11 

740 JSREEDSG 

758 LDA#IE: STARID 

7EB LDA#I: STARS 

770 INY: LDACHID, Y 

ZED CMPOÉFF;s BNE RRB 
79D:RRIB JSRHFID1 

5001 

818 'P=#ODDE120D 

828 P=P+4 

832 

840 LDAAE: STA#SZ 

E52 RTS EINDE 

SEB\ printen reseinunmer 
87O:RRIL LDXA#SC: JSRHFG7L 
659 LDY9Z 

838 JSR#C5O4 
989 LDACHIE), 3 
319 JSR#F671 
920 LDA(KSE) , Ys 
358 JSRHF671 
340 JSRECSSS 
950\ printen text 
SEBIRRI2 LDACHIE), Y 
378 CMPDÉD: BEG RRIJ 
988 JSRHCA4GC 

998 LDXARIC 





SBC7; TAX 
DEX; BNE RR14 





STA#25 


STA#1E 


JMP RRI2 
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DATA READ RESTORE 


Er zijn mij nosat wat vragen sesteld over de READ DATA RESTORE 
Statements, Daarom deze posing hierin enise ophelderins te brensen. 





READ is het Enselse woord voor lezen of inlezen. Met deze opdracht 
KUNNEN We aan een variabele een waarde toekennen: of indien het een 
stringvariabele betreft een string toewijzen. Bis een 
strinsvariabete moet men echter deze wet dimensioneren: bv DIM 
ACIS), waarmee bepaald wordt dat $A 15 karakters mas bevatten. 


DATA is het Enselse woord voor gegevens. Achter dit woord staan de 
setallen of de strinas die met behulp van de READ opdracht aan de 
betreffende variabelen toesekend worden. 


RESTORE is het Enselse woord voor herstelien. Om bij te houden 
hoaveet DATA er inselezen is, wordt een teller bijsehouden. Wi 
men nu de waarden opnieuw inlezen: dan geeft men de opdracht 
RESTORE. Hierdoor wordt de telier op het eerste DATA-iten sezet en 

kunnen deze opnieuw worden ingelezen. 


Uitsaande van de JOSBOX zal ik nu enkele voorbeelden seven met 
enige toelichting 


Voorbeeld 1 
Het inlezen van setallen. 
18 RESTORE 
20 READ A,B:C,D,E 
30 PRINT A,B,C: D: E 
40 DATA 18,45, 56: 1, 98 
58 END 


Hierin krijst A de waarde 19, B de waarde 45: enz 


Voorbeeld 2 
Het inlezen van strines. 

18 RESTORE 

20 DIM AC10),BC18), CIB), DLD, EC1DD 

30 READ $A,$B,$C. SD, $E 

40 PRINT $A’,$B',$C',$D' , SE" 

58 DATA "ACORN ATOM":"DEMO READ", "DATA EN" 
EO DATA "RESTORE", "OPDRACHTEN" 

73 END 


Hierin wordt $A ACORN ATOM, SB wordt DEMO READ, enz. 


Voorbeetd 3 
Het inlezen van arrar's. 
18 RESTORE 

28 DIM AAC1O) 

T8 FDR N=0 TO 19 

48 READ AALN) 

SO NEXT N 

ER FOR N=3 TO 10 

78 PRINT AAC) 

E88 NEXT N 

38 DATA 10, 40. 55. 2556. 7E, 11 7. 7456: 65E, SIS, 173455 
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188 END 


Hierin krijst AAD) de waarde 1, RACI) de waarde 40, AA(CZ) de 
waarde S®, enz. 


Men kan ook een strins-array intezen mits deze correct is 
gedimensioneerd. 
Bijvoorbeeld: 

18 RESTORE 

2e DIM ARC5) 

38 FOR N=B TO 5 
48 DIM XC1D 

58 ARACND =X 

58 NEXT N 

78 FOR N=@ TO 5 
88 READ SAAL) 
B NEXT N 





128 DATA "JANSSEN", "WOONT", “OP*, "ADRES", “TE", "WOONPLAATS" 
153 END 


Betreffende de RESTORE opdracht vit de JOSBOX zijn nos de voisende 


opmerkingen te maken: 
— ailteen RESTORE: dan wordt de teller (pointer) sezet op het eerste 


DATR-i tem. 

— RESTORE 10%; dan wordt de telter sezet op het eerste DATR-item op 
reset 190. 

— RESTORE as dan wordt de teiter sezet op het eerste DATA-item van 
de regel besinnend met label '&'. 

— RESTORE (S+I+6): dan wordt de telter sezet oP het eerste 
DATA-item van berekende reselnummer, welke afhankelijk is van 





de variabele 


Opmerking 1: 

Omdat bij de ATOM de tetier (pointer) bij het aanzetten van het 
toestel gen Willekeurige waarde heeft: moet bij sebruik van een 
READ DATA opdracht aan het besin van het prosramma eerst een 
RESTORE oedracht seseven Worden, on deze pointer soed te zetten. 


Oemerkins 25 

Men dient er voor te zorgen dat voor elke READ opdracht er ook een 
DATA-item beschikbaar is. Dat wit zessen, Wit men met READ 109 
getallen inlezen, er ook 19 setatien achter DATA moeten staan. 

Is dit niet het geval: dan volst een error-meidins. 


Ik hoop hiermse voor enkele of meerdere mensen enise duidelijkheid 
te hebben sebracht in de RERD DATA RESTORE constructie, 


Wim Ernst 


[pas. 22 [ACORN NIEUWS [MUSIC- PAPER | ANDRE DE BRUIN ] 
MUSIC - PAPER 


Dit programma maakt het mogelijk om de ATOM een deun te laten 
spelen. Nu is dat op zich zelf natuurlijk niets nieuws: behalve 
het programma'tje dat in ATOMIC THEORY and PRACTICE vermeld 
stond, is er ook een “synthesizer"- programma op de markt dat dit 
mogelijk zou moeten maken, 

teide programma’s hebben echter hetzelfde nadeel: voor het 
invoeren van de muziek is het noodzakelijk dat de gebruiker de 
muziek kan SPELEN (zoals bijvoorbeeld op een orgel). 

Deze moeilijkheid wordt in dit programma omzeild : de in te 
voeren muziek hoeft niet gespeeld te worden, maar de noten 
waaruit de muziek bestaat worden stuk voor stuk op een natenbal k 
geplaatst. 


In de notenbalk top het beeldscherm) staat een cursor, die op en 
neer bewogen kan worden. Rechts bovenin staat een "noot" van een 
bepaalde vorm (open,dicht,;met vlag...). Na een druk op RETURN 
wordt de noot op de plaats van de cursor in de notenbalk 
opgenomen. 


Te allen tijde kan de muziek gespeeld worden door op "P" te 
drukken. Mocht dit nu erbarmelijk klinken, dan is het mogelijk om 
de ingevoerde data te veranderen "EDITEN": Na een druk op de 
CTRL-toets zit je in de EDIT-mode (is te zien bavenaan 
beeldscherm). 

Dan is het mogelijk om noten te veranderen, in te voegen of te 
verwijderen. 


In tegenstelling tot de HINPUT"-mode kan de cursor nu wel heen en 
seer bewogen worden (SHIFT-Z en SHIFT-X) 


Als het programma ingetikt is en men geeft RUN, dan volgt er een 
srachtige : ERROR 71 LINE 110. Willen we echter dat het programma 
iets meer doet dan dat, dan moeten we de XXXX in regel 110 
veranderen in een adres waar wat vrij geheugen staat, 
2ijvoorbeeld vlak achter het programma. . 8 
Daarvoor tikken we in: PRINT &?#25 + PHZAKHLOO (LET OP! #23, 824 
geven het eerste vrije byte na het programma (en arrays) aan, 
maar daarvoor moet het programma wel eerst gelopen hebben). De mu 
zevonden waarde vullen we dan in voor de XXXX (compleet met #). 
Dezelfde waarde vullen we in voor de XXXX in regel 590. (nu 
zonder #) De YYYY in dezelfde regel vervangen we door het hoogst 
daarop volgende vrije adres. 

Mensen met gestapeld geheugen kunnen bijvoorbeeld geven: XXX 
wordt #3C00 en YYYY wordt #4000, 

De data wordt zeer economisch opgeslagen: elke noet (compleet met 
voorafgaande mal of kruis) kost slechts 1 byte. 
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TOETSEN 


werkt in: 
input edit 
toets effect made mode 





z lengte(svarm) van naat wordt langer jä ja 
x lengte van noot wordt korter ja ja 
t cursor (im notenbalk) beweegt omhoog KE jä 
7 cursor beweegt omlaag ja ja 
b teken een mol (b) die bij volgende noot hoort ja ja 
3 teken een kruis (#) N ia sa 
RETURN de geselecteerde noot wordt opgenomen in balk ja ja 
CTRL "EDIT" mode wordt betreden of verlaten ja ja 
SHIFT-Z cursor beweegt naar links nae ja 
SHIFT-X cursor beweegt naar rechts nee ja 
DELETE noot waarbij cursor staat wordt verwijderd nee ja 
Í (insert) de gekozen noot wordt gecopieerd nee ja 
Ss (save) save data, keer terug naar INPUT-mode nee ja 
L (load) laad data, keer terug naar INPUT-mode nee ja 


opmerking: Het invoegen van een noet in de EDIT-mode gaaat als 
volgt: plaats cursor bij een noot waarbij je in wil voegen, druk 
dan op 1. De naat wordt dan gecopieerd, Dan verander je een van 
die twee (met RETURN) in de noot die je eigenlijlk in wilde 


voegen. 


KKK MUSIC-PAPER kak sereendumps 








EdiE EdTE 
ee En 
Te Tg 
Se 


leifde scherm. na net drukken op CRETURN) 
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10 REM MADE IN HOLLAND BY ANDRE DE BRUIN 

20 F=#2800; DIMNN1E,BELE, VV4,KK4,LLS; FP. $12821 
ZOL :KKO JSRHFE71;STY#7O; RTS 
40: KKILDA#SIJ LDX&S; :KK2 ASLA; ROL#82; DEX ; ENEF, 
5 INY; INCHB2; LDA20; : KK33 EORB4; STAHBOO2; LDX48 
60 NOF; NOP; NOP; BNEKK4; DEY ; BNEK sDECHS2; NEK 
7 PF. $&;LLO=16;LL1=8j;LL2=4j LL 
BO NN1=205;NN2=185; BB2=191; NNS 
90 NNS=137;BES=L4S; NN 
109 NN9=91;BBE9=96; NNIO= 
110 NN13=60; BB13=64; BO; F=ûj Ves S=HXXXX; IN. wTEMPO mz KKK 100 
12OREM XXXX AFTER s= SHOULD BE REPLACED 

130REM BY FIRST FREE MEMORY BYTE (PRINT 4?#25+7#24 XR 100) 

140 M=S;GOS.q; GOS. kj; Y=1; X=10;D=2; U=0; GOS. m;GOS.e; GOS. o 

150 END 

1700 Z=7#BOO1jLI.KKO; Q=P#70 

180 IF Q=34;B=1;GOS. m;PLOTO,-15,0; GOS. 0 

190 IF Q=19; ; GOS. mz FLOTO, 15,0; GOS. f 

260 IFU; 1F0=58; IF(Z/120): 1;G0S.610;0.u 

210 IFU;IFQ=56; IF(Z/128):1;G08.690;G.0 

220 IFU;IFQ=13; 608. 560;DO; U. 242055. 540 

230 IFU;IFQ=51; GOS. 560 

240 IFU;IFQ=44; 608. 420 

250 IFQ=1;GOS. 900 

260 IFQ=31;G0S.870 

270 IFQ=56;GOS.810 

280 IFQ=58;G05,840 

290 IFQ=13;G0S. 750 

300 IFZ=191;G0S. 520 

310 1FQ=48; 608. h 

320 IFU; 1FQ=41;G0S, 490 

330 IFU;IFQ=15; GOS. 460 

340 GOTO a 

3460 ?M=BFF ; KNOMON 

TJOREM XXXX AND YYYY MUST BE REPLACED BY RESPECTIVELY 

SEOREM YOUR FIRST AND LAST MEMORY BYTE (AFTER THE PROGRAM" 

390 ESAVE"DATA" XXXX YYYY 

400 P,$7;R. 

420 £NOMON 

430 «LOAD"DATA" 

440 M=5;DO M=M+1;U. 7M=#FF; U=0; G. 520 

360 F.I=W TOM-2) ; 219 (LED Nine =M-1;E=A429; IFE>M- lj Ezme i 

470 GOS. v; GOS. m; GOS. e; GOS. 

490 F‚I=M TOI S. 13 21=7 (1 DiN.: s Mebel; Ez 29; FEM; Eee 1 

500 GOS. v; GOS. m; GOS. e; GOS. xj R. 

520 U=l ;G0S.x; IF U: 1;608.q; GOS, kj Xe 1; D=2; GOS. m; GOS. e; R. 
550 A=S;E=A+29; IFE>M; E=M-1 

540 GOS. v; GOS. x; X=10; D=2;W=5; GOS. mj GOS.e;R. 

5460 GOS,x;GOS.m; GOS. e; GOS. 1; Gos. m; Gets 605. n 

570 IF FjB=tj Ye Yaris IFY>13; Yzi3 

580 2W=B4128+Y80+V; IF F3 vav-t 

590) Fet)j D=; GOS.m; GOS. ee; GOS. xj RK. 

&10 WaeW-1; IF W<S;WeS;R. 

2 GOS.m;GOS.e 







TAY 
KK4z DEX 
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&30 X=k-235IF KLO; X=217; D=EDti 

&40 IFD>2;A=W-29; IFASS; A=65 

650 IFD>2;E=A+29; IFE>M-1; E=M-1 

640 IFD>2;G0S. v; GOS. x ; X=217 3 D==0 

670 GOS, m;GOS.e;R. 

690 WaW+1; IFWD>M-1j Weij R. 

700 GOS.m;GOS,e; X=X+25; IFX>233; Xs 10; DeD-L 

710 IFDCO;sA=WjE=A+2?; IFE>M-1 3 Ent 

720 IFD<O;GOS, v; GOS. xj X=10; D=2 

750 GOS.m;GOS.e;R. 

750 GOS, m;G0S.e; GOS. m;C=1;GOS.n 

760 IF FyB=ljY=eY+1j IFY>15j Yet 

770 PMSEKL2BYKBVj Met 1; IP FjYmVel 

780 F=O;B=0; X=X+233 IFX>235; X=10; D=D-1; IF DX0;GOS. 5; GOS, k 
790 GOS.m; GOS. e;bleMjR. 

B1O VaV+l; IFV.S5; VeS 

8e2ù GOS.k;R. 

840 VaV-1i; IFV<Oj V=0 

856 GOS.k;R. 

870 GOS.m;GOS.ejY=Y-1j IF YS1jY=t 

886 GOS.m;GOS,ejR. 

#00 GOS.m;GQS.e;Y=Y+1j IF Y>15; Y=lS 

910 GOS.m;GOS.e;R. 

FSOh F.I=S TO(M-1) 

940 IFCPIX8=5);F.Je1 TO 1003 N.5G, 980 

950 IF(?I/128);J=BEC (PIX128)/8);G. 970 

6) JeNNC(PI/128) /E) 

F70 Hell (7148) KK/J3 PRBLEHA256; PHBZ=H/256; PRBO=ITJLI.KKL 
90 N.;R. 
1000v VVO=B; VV i=Yj VVZ=V; VVS=Xj VVAED; GOS. qj T=A; D=2j X==5 
1U10i B=PT/128;Y=(7T4128) /B; V=? TB 

1020 GOS.m; IF B;G08.g 

1030 MOVE (X+15) , ((D&GO+S) +(Y+1) 47/2); C=t3 GDS.n; T=T+1 
1040 IF T>E;B=VVOj YeVVLj VeVV2j XeVVSj D=eVVAGR, 

1050 X=X+23; IF X>225;X=-5jD=D-1; IF DLO; GOS.s 





1080 G.i 
1080n IFV=0;GDS.a 
1090 IF ; GDS, a; GOS. c 





1100 IF V=2;608.b;GO0S.c 

110 IE V=3; GOS. b; 608.c; GOS. d 

1120 ; GOS. bh; 608. c; GOS. d; GOS. d 

1156 IF V=5;GOS.r 

1140 R‚ 

11büs GOS.q;D=2;R. 

1180q CLEAR4 

1190 F‚J=18t TO O 5.-60;F.I1=2T0 & 

1206 MOVE @,(J -IK7);PLOTS, 255, ( J-IXZ)iN, IjN.J;R. 

1220a PLOTC,O, 1;PLOTC, 3, 25 PLOTC, 4, 0; PLOTC, 3, -2; PLOTC, 0, —1 
1230 PLOTC, -3,-2;PLOTG, -4, 0; PLDTC, -3, 2; R. 

1250b PLOTC, 16,0; PLOTC, -1,-1; PLOTC,-8, 0; PLOTC, 2,-1; PLOTC, 4,0 
1260 PLOTÒ,-7,3; PLOT, 19,0; PLOTC,=1, 1; PLOTC, -B, 03 PLOTC, 2,1 
1270PLOTC, 4, 0; PLOTO,-7,=3;R. 

1290c FLOTO, 10,0; PLOTC,O, 1A;R. 
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5} PLUTE, 0, -1; PLOTÓ, =3 
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151ûd PLOTG,1, 
1520 PLOTO,=1, 
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PLUTO, 3, 











:PLOTC, 0, 







LTC, -2, 24 PLOTE, A; FLOTG, —1, 33 PLOTC, 2,0 





LOTO,=2, 14 FLOT1, 0, -93 FLOTO, 2,2 
1sFLOT1,0,9;R. 

LOT1, 0; 1 -E;PLOTI, 20; PLOTA, 2,2; FLOT1, 0, 1 
TPLOTI} 2, Ar ELOTL, O4 St PLOTI, 0,7 R. 

;FLOTZ, 7,0; FLOT2, 0, -5; FLOT2, 7,0; FLOT2,O, ij R. 
NK PLOT2, -5, 03 PLOT2,O, 10; PLOT2, 5,0 

1460 PLOTO,-4,-5;FLOT2, 4,0; PLOTO, 9,5 

1470 PLOT2,O, =10; PLOTZ, -5, 0; PLOT2, 0,5; PLOT, 4,0; PLOTÒ, 5, = 
1480 FLOT2,0,8;PLOTO, 0, 2; FLOT2,0,0;PLOTO, 4,0 

1390 PLOT2,O „10; PLOT2,S, 0; PLOTO, 4,5; PLOT2, 4, 0; 

1S510k F‚ I= 17100 St PCIKHZOHNBOLF- IRE; PCIKRZOLRBOIF) =HFF 
1520 N. 3 MOVE241, 17730 53 GOE.n;R. 

15401 F. 1TD603 MOVE (X-8) , (D46O+0+I} 

1550 IFIS>113 IFI<>18; IFIS>25; IFIS>S2; IFES >59; PLOT3, 22, à 
156ON. ;R. 

1580m MOVEX, UDKLOHS) + (VHD KT/D Re 















em 
mmm EN 


18 PROGRAM LOCK FILES 

28 REM HENK REINDERS 

30 REM LOCKT ALLE FILE OP EEN DISK 

48 DIM LL1 

5% P‚,$21:P=A:GOSUB à 

69 P,$E +P=AIGOSUB a 

78 $T="TLOEK" sT=T+LENCT) 

80 IT=LLO/25EEHEDI TP LL LOLZSEFT 200 TT 2 
38 A=PIT?1=A 








198 END 

118 

120aE 

156:LLBIJSR HC4E4 \ TEST EINDE STATEMENT 

148 JSR #E225 \ LAADT DE CATALOG 

158 LDY #2195 \ LAADT INDEX EERSTE FILENAAM 


1EBELLIJLDA #Z8AF,Y\ LAADT GUALIFIER MET LOCK BITJE 
a#eR \ ZET LOCKBITJE HOOG 

#200F. Y\ ZET TERUG 

#E18S \ INDEX OP VOLGENDE FILE NAAM 
ARS \ TEST OP EINDE FILE NAMEN 

LLi 

#E74A \ SAVE CATALOG 

“CSSB \ RETOUR INTERPRETER 
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TURTLE-GRAPHIGS 


Nu wij de beschikking hebben sekresen over de earôm 
P-charme: zijn we ptatseting in staat om bepaalde problemen 
peanvoudis op te lossen: voornamelijk dankzij de moselijkheid 
van procedures en functies. 

Ik kon het niet laten mijn eerdere prosramma 'TURTLE' te 
herschrijven, het resuttaat vindt u als bijlage. 

Het blijkt dat we nu met zen redelijk Kort prosramma in 
staat zijn het oude turtte-prosramma te vervansen (enkele 
statements vit de oude versie heb ik wesseiaten, omdat deze 
achterat niet echt bruikbaar bleken te zijn). Enkele 
voordelen van deze nieuwe versie t.o.v. de oude zijn: 





=het prosramma werkt vele malen snetter 

—het prasramma is inzichtelijker (structuur) 

—turtie sraohies zijn nu ‘mengbaar’ met Atom Basic 

„we kunnen nu zelf procedures maken: waarin Dok 
parameters Kunnen werden opsenomen. In de oude versie 
konden we slerhtis definities maken als zijnde seen reeks 
‘vaarseprosrammeerde' Subroutines. 


In het basis-orosramma worden de volgende procedures 
sedefinieerd: 


MODE (ND) initiatiseert variabelen: maakt Scherm schoon: 
zet cursor home’ (op 0:09), cursormade Ì: N is de arafics 
mode Cf-4} 


CLS maakt scherm schoon in huidige srafics made 


CURS EN) bepaalt de cursor mode (i=verplaatsen, ZePlotten 
inverteren en 4suitvesen) 





ROT EN) waarin N=noekveranderina in sraden, verandert de 
zursorerichtins met N sraden. Na MODE(N) is de hoek altijd 
8. 


ANGLECN) waarin N=shoek in sraden, deze procedure zet de 
absolute hoek op N eraden 


FWD END verplaats de zursar N stappen in de huidige 
rizhtinas afhanketijk van de eursormade Wordt at leen maar 
bewogen: SPtekend: seinvertserd of schoonsemaakt. Indien N{G 
is de beweging tesensesteld 


RIGHT CN) is selijk aant ANGLE(O)sFWDIN),echter de hoek 
blijft selijk: hiermee kan men de cursor snel naar rechts of 
tinks verplaatsen Canseacht de huidise richtina), indien N(8 
is de bewesins naar links 


UP EN) is selijk aant ANGLEC30):FWDIN), echter de hoek 
blijft selijk, hiermee kan men de cursor snel omhoos of 
amtaas bewesen (ongeacht de huidies richting): indien N(B is 
de beweging tesensesteld 
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SETON: MD zet de cursor ap de absotute positie N;M Cats 
Loordinaten) : 





TURTLEEN) bepaalt met welke turtte (=cursor) we gaan 
werken, we kunnen vametijk Kiezen uit 10 turtles, welke 
anafhankelijk zijn te besturen. Dit kan handig zijn bij zeer 
complexe fisuren, maar ook kan het so2d bruikbaar zijn 
indien men een bepaalde zursorpositie tijdelijk wit 
Onthouden Terwijl een ander sedseite van de tekenina wordt 
afgemaakt. Het is sen aardis gezicht om tijdens de 
vitvoerins van een turtle-prosramma meerdere turtles selijk 
aan het ‘werk’ te zien. 


LOC ND geef de locatie van de huidise turtle d.m.v. een 
klein vierkantse,: na het aanseven van de locatie wacht 
sedurende N {in 1/18 seconde). Dit is vooral bruikbaar om 
tijdens uitvoering van een turtleprosramma te zien hoe de 
zursor zich verplaatst, vanzelfsprekend vertraagt het 
prosvramma aanzienlijk, wat te ondervangen is door een Kleine 
N-waarde te kiezen 


Voor de waarden N en M dienen we ofwel sen getal 
Ceonstante), ofwel een variabele, ofwel een expressie in te 
vul Len. 


We hebben nu dus 'siechts' 18 veschillende basis-Procedures: 
dit tijkt weinies echter men kan Uiterst eenvoudis zelf 
nieuwe definities maken: denk bijvoorbeeld aan: 


POLYGON(N, M) tekent een veeihoek (polyacon) met M hoeken en 
Zijdelenste N 


SQUARE(N) tekent een vierkant met zijdetenste N 


CIRCLE(L, M‚N) tekent een cirkel met straal L, starthoek M en 
eindhoek N 


SHAPEIN,M) tekent shace N met scale M (=sverarotinssfactor) 


"Er is ook niets op tegen om een eisen karakterset te 
ontwersen en in elke sewenste afmetins en hoek op het scherm 
af te beelden. 


Nos even het volgende V‚w.b. het prosramma: 


de standaarderocedures staan in reset 108-740, een eisen 
turtte-prosramma begint vanaf 748 (bijv. vanaf 1008). Hier 
kan men nieuwe procedures maken {nos 23 over 1), 
gecombineerd met Atom Hasic en standaard erocedures. Hierbij 
haudt men de Atom/e-charme syntax sewoon aan. De standaard 
procedures maken sebruik van de arrays HHI4), II CSO), XHHEE) 
en KIICI® voor de aastas van de verschillende 
turtie-zegevens. In HIG staat de srafics mode, in HHI de 
zursormade van de huidies turtle: in HH2 en HHS de 
zaardinaten en rn HH4 het turttenummer, In XHHI en XHH2 
aliok de A- en Y-fastar en in <HHI de hoek. 
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De reden dat i.p.v. sewone variabelen array-elementen zijn 
Sebruikt is twesledie: ten eerste omdat dan aile variabeten 
voor UW eiaen turtieprogramma beschikbaar zijn: en ten 
tweede omdat anders sebruik moest worden semaakt van 
var-parameters in de procedures, waardoor deze ietwat 
gecompliceerder worden. Met array-slementen kun je 
variabele-waarden sewoon doarseven, onseacht in welke 
procedure je zit. Dit levert overigens welt een vertraaing in 
de srafics op, snetheidsmaniakken kunnen het prosr mma 
altijd vrij senvoudie herschrijven. 








Tenslotte een voorbeeld van een leszat turtieprosramma 
C-gedeelte) : 


1838 PROC SGUARE(ND: I 
1918 FOR I=iTDS 

1829 FWDCN) : ROTA) 
1833 NEXT 1 

1948 PEND 

1859 PROC TESTEN, MD), I 
1069 FOR I=1TOM 
1878 SQUARE CN) 

1988 ROT (-268/M) 
NEXT 1 

PEND 


MODEC4) sTURTLECID ;SSET (108, 180) : CURS CA) 
TEST LE@, 20) 
END 





18 PROGRAM TURTLE 

28 REM E.J. Snelders 

38 REM Welhaak BS 

40 REM 9952 BK Delfziël 

S@ DIMHHC4), EI CSO) SFDIMAHH(S) » XIICEO) 
EB FOR J=1T025 STEP 3 

7@ IIJ=4IICJ+ij =D II CJ+2) =D 

88 xIIJ=isXIE(J+I Bi KII(J+2) =D 

30 NEXTJ 
180 HHB=4 ; HHI=4 ; HH2=0 5 HHS=0 ; HH4=t 


128 PROC CLS 
138 CLEAR HHD; HH2=D; HHI=G 
148 PEND 


168 PROC MODEEN) 

178 IFN(i N=i 

188 IFN)4 N=4 

130. HHOENI CLS: XHHI=1 5 XHH2=D; AHHI=0S HHI =d 
20% PEND 
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28 PROC CURS UN) 

258 HHIeEN+S 

248 PEND 

258 

268 PROC ROTCN) 

278  XHHEEKHHE+LCN/1E0) *PI 

ZEB _XHH1=COSAHHE 3 XHHZESINKHHS 
298 PEND 

300 

310 PROC ANGLECN) 

320 XHHI=iN/100) *PI 

338 _XHHL=COSAHHE ; XHHZESINXHHS 
540 PEND 

358 

ZEB PROC FWDCN) 

378 _ HHE=HH24%CAHHIEND) $HHEEHHE + CAHH ZEND 
ZEB PLOTHHI: HH2, HHS 

338 PEND 

408 

418 PROC RIGHT (ND) 

420 HH2=HH2+N 

4&3B _PLOTHH1: HHZ, HHZ 

448 PEND 

450 

468 PROC UP(N) 

478 _ HHS=HHEEN 

4EB _PLOTHHI: HH2, HHS 

490 PEND 





518 PROC SET(N,M) 

520 HH2=N5HHE=M5 PLOTG: HH2, HHS 
550 PEND 

548 

558 PROC TURTLECN), J, Ks L 
568 IF N(i N=1 

579 IF N18 N=i0 

SEB KZ CHH4- 1) SLEEN ID) 
Sa FOR J=1T03 

E08 IICK+J) =HHJ 

E18 AEICKHI) =K HHJ 

628 HHJ=IE JD) 

658 KHHILII CLJ) 

648 NEXT J 

ESB PLOT4:HH2, HHS 

EED HH4=N 

E78 PEND 

520 

699 PROC LOCAND, J 

708 PLOTG, EE 

718 FORJE1TO2 

720 PLOTZ, -5, B: PLOT2: G, -5:PLOT2, 5, 85 PLOT, & 5 
758 PRUSEN 

748 NEXTJ 

759 PLOT@, -E,-5 

7ED PEND 
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Voor die computer-enthousiasten met alieen een cassette-recorder is 
onderstaand verhaal slechts bedoeld ais bladvyilins. Voor de 
disk-tiefhebbers zijn de volsende Krabbels misschien een eerste 
aanzet tot het gsebruik van randomvaccess-fites, Sommise mensen 
sebruiken de disk niet anders dan voor SAVE, LOAD of DELETE. Met 
random access files kan men echter veel meer doen. 

De random access file is eigenlijk een normale file, die echter op 





een speciale manier Wordt seschreven en setezen. Een normate file 
WOTdt altijd in een keer naar schijf Seschreven, terwijt een random 
access file wordt seschreven Per byte, string, inteser variabele of 
fioatins-point. variabele. Hieruit blijkt direkt a&t dat de random 
access file (cok wel sequential file sensemd) bedoeld is om te 
Sebryiken als ceslas van sesevens die door een proeramma worden 
geproduceerd. 


Om de DOS te vertellen dat een random file gemaakt moet worden 
heeft de BASIC de beschikkins over de functie FOUT. Dit woord moet 
sevolsd worden door een strings, die de naam van de file bevat. De 
functie levert een setal pp dat door de DOS wordt bedacht. Dit 


setai wordt sebruikt voor alie andere operaties die worden 
Uitsevoerd op die file, De DOS kan aan dit setal zien om welke fite 
het saat, 


Voorbeetd: 





OP het moment dat de functie FOUT wordt aansesroepen reserveert de 
DOS een aaneensestoten Stuk ruimte op de schijf. De lenate van dat 
stuk wordt 1EK als de fite nos niet bestond en Wordt setijk aan de 
jenate van de file als de file al wet bestond. Indien de file àt 
insebruik was als random file dan wordt die file eerst sestoten 
{zie verderop) en vervalgens OPNIEUW Stopend. Als een file al 
bestaat dan is in Prircioe ra FOUT de inhoud van die file verloren. 
Let er wet op dat de beschrijving van FOUT in de blauwe ATOM 
handteidina niet Klopt (helaas). 

In een random file Kunnen we gesevens opbersen met behutp van de 
statements BPUT, SPUT, PUT en FPUT. Al deze statements moeten 
direkt worden Sevolsd door het nummer van de fite (hierboven hebben 
we dat nummer bij FOUT opsestasen in de variabele A). Dit speciale 
nummer dat verschijiehde waarden kan hebben heet de file-handie. Na 
de file-hândie komt datsene wat we in de random file willen 





opbersen. 
Voorbeeld: A=FDUT "KEES" 
PUT A, 12345 (bers de waarde 12345 op in de file) 
PUT A,B*7+B 
SPUT A, "HALLO" (bers een strings op in de fiie) 
SPUT A,$T 
BPUT A, 66 (bera precies een byte op) 
FPUT A,12, 545 (bergs floatineg-point waarde op) 
let aarntat bytes dat naar de file wordt seschreven is verschiltend 
per statement: 
PUT 4 BYTES (een inteser is altijd vier bytes) 


BPUT : 1 BYTE (de eers letter van dit statement 
staat vaar de B van Eyte) 
BYTES (zen flaatina-point sertal iS ait 








EPUT d 5 bytes) 


u 
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SPUT : de lenste van de strins + 1 (l extra is nodie voor een 
carrise return aan het einde van de strins) 


In een prosvramma mosen door elkaar en meerdere keren de 
verschillende PUT-statements sebruikt worden. Als we alle gesevens 
naar de DOS hebben sestuurd (er volsen geen (S-P, B-) PUT 
statements meer) dan moeten we dit ook meedelen aan de DOS, Dat 
doen we door de file te sluiten met het SHUT-statement, 

VOORBEELD: SHUT A 


Dok hier moet weer de bìs FOUT sevonden file-handle sebruikt worden 
zodat de DOS ook weet welke file er moet worden gesloten. ‘Als 
blijkt dat de gereserveerde ruimte voor deze file te sroot sekozen 
was (hetseen vrijwel altijd zo is aansezien meestal IEK wordt 
gereserveerd), dan wordt de tenste van de file terussebracht tot de 
echte tenste. In simpele prosramma's is die lenste selijk aan het 
aanta! bytes dat naar de tile is seschreven. 

Indien tijdens een van de PUT-statements mocht blijken dat de 
gereserveerde ruimte toch te Klein is, dan wordt die ruimte 
uitsebreid tot het maximum dat moseltijk is, Dit maximum wordt 
bepaald door de éerste niet-vrije sector na de random-fite, Is deze 
sector op de k namelijk in sebruik: dan zouden eventuele verdere 
PUT's deze tille overschrijven hetseen natuurlijk voorkomen moet 
worden. Zijn er na de random file seen verdere bezette sectoren: 
dan wordt het maximum selijk aan het einde van de disk. Is er seen 
ruimte meer over dan volst een error 19: CAN'T EXTEND. 

Zoals bij FDUT vermeld staat: wordt — als de file at bestaat — 
zoveel ruimte gereserveerd als die file lana is. Dit heeft bv. tot 
sevols dat als zo'n file slechts 4855 bytes lans is en de sector 
volgend oP die fite is al In sebruik' (voor een andere file), dan 
kunnen we deze tile wel vulten met PUT, maar nooit met meer dan 512 
bytes (twee sectoren sevutd). 

We kunnen dit oP twee manieren oplossen: ten eerste door de file 
eerst te deleten: waarna de DUS bij FOUT automatisch IEK reserveerd 
en ten tweede door een fiauwekul file te saven met dezelfde naam en 
de sewenste lenste: waarna de DOS bij FOUT deze lenste sebruikt als 
serestrveerde ruimte. 








WAARSCHUWING : 

ALLE FILES DIE MET MET DE FUNCTIE FOUT ZIJN GEOPEND MOETEN OOK WEER 
WORDEN GESLOTEN. ALS HET PROGRRMMA VOORTIJDIG WORDT BEEINDIGD CMET 
ESC OF DOOR EEN ERROR) DAN MOET DE FILE ALSNOG MET DE HAND WORDEN 
GESLOTEN. 


De DOS neeft hiervoor een extra srapse ingebouwd: als bij SHUT in 
plaats van de file-handie een nut wordt seseven (SHUT @),; dan 
worden alte files sesloten. Dus na een error altiid eerst SHUT @ 
sebruiken }!! tet Leer 

Soms wordt = afhankelijk van de error — de file automatisch al door 
de DOS sestoten. 

Uiteraard willen we de informatie die we in een file hebben 
opseborsen ook weer Kunnen lezen of wijzisen. Ook hier moeten we de 
tile eerste openen. Nu heet de functie echter FIN inplaats van 
FOUT. Net als bij FOUT moet FIN sevolted worden daor een string: 
Voorbeeld: Z=FIN "PLAN" 








Deze functie levert ook een Uniek Tummer oP: waaronder de DOS dez 
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file herkent. Bestaat de e niet dan heeft de functie de waarde 


nut. 
Om sesevens te lezen hebben we de functies GET, BGET en FGET en het 


statement SGET. 








B=GET Z (lees waarde van de file) 

PRINT BGET Z (Ciaem 1 BYTE) 

FPRINT FGET Z (lees flaating-noint waarde) 

SGET Z,T (lees strings en bers die op bij T) 


Let erop dat de informatie in de juiste volsorde weer van de schijt 
moet warden sehaatd. Stel we hebben bv. Ta FOUT eerst een string in 
de file sezet (met SPUT) en direkt daarna een setal (met PUT): dan 
moet ook na FIN serst weer die strins worden setezen en dan pas het 
getal Candersom werkt het wel, maar dan krije je verkeerde 
informatie van de Schijf), 

Ook is het moselijk om bestaande bytes in de file te overschrijven 
goor sebruik te maken van PUT-statenents. Tussenvoesen is echter 
niet mogelijk. Dit kan alleen worden gedaan door de file over te 
Schrijven naar een andere file (met BPUT bv.) en ondertussen op de 
gewenste plaatsen extra PUT's tussen te voegen. 

Indien we met bv. EGET het laatste byte van de file setezen hebben: 
dan is de waarde van het volsend byte dat we proberen te lezen 
altijd #FF. We zessen dan dat we END-OF-FILE (EOF) bereikt hebben. 
Proberen we noa verder te lezen dan valat een error 67: TRIED TO 
READ BEYOND EOF. 

Het byte #FF dat we van de DOS krijsen ats we precies op EOF staan, 
staat niet op schijf maar wordt door de DOS zett semaakt. Bedenk 
walt dat ook midden in een file dit byte kan voorkomen (tenminste 
als we die waarde met PUT erin hebben sezet). 

LET OP : ook files die seopend zijn mbv. FIN dienen met een SHUT te 
worden sestoten. Soms lijkt C!L Hi II) het dan dat de DOS niets 
doet: maar daar moet je je niet door laten misleiden. (de asvolsen 
zijn echter vaak minder drastisch dan bij FOUT en een verseten 








SHUT), 
Tot nu toe hebben we een file steeds van voor tot achter beschreven 
of setezen. We kunnen echter ook op wiliekeurige plaatsen in de 


fite aan het werk saan. De DOS houdt namelijk een pointer bij die 
Wijst naar het byte in de file dat op dat moment aan de beurt is om 
selezen of beschreven te worden. Deze painter wordt tijdens het 
tezen (of schrijven) automatisch met de juiste waarde opsehnosd (4 
voor intesers, 5 voor FP‚, lenti voor strings en t voor bytes). De 
Pointer is aan de BASIC bekend onder de naam PTR. Uiteraard moet 
nok PTR direkt sevotsd worden door de file-handte. PTR kan verder 





bijna net za worden Sebruikt ais een sewone variabele. Ats we dus 
bv. het 749-ste byte witlen tezen uit een file, zonder eerst al de 
voorgaande 768 bytes te lezer: dan kan dat met: 
=FIN "BESTAND" 
PTR A=748 
PRINT BGET A 
SHUT A {niet verseten) 





Wat mok maa is bv. 
PTR A = PTRA + 20 (sla 20 bytes over) 
PTR a PTR A — 10 (sa 19 bytes terua) 
PTR A 3 (begin vooraan) 
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3 FIN of FDUT wordt de pointer automatisch op nul sezet, Wat niet 
is de PTR verzetten tot over de lenste van de file of tot over 

gereserveerde ruimte Cerror 24: PTR out of ranse), Wordt na FOUT 

der PUr verzet Voorbij de locatie van het laatst beschreven byte: 

dan wordt de ruimte tussen die lucatie en de uwe gsointer 

opgevuld met #FF. 

De huidiee lenste van een file is ook op te vrasen vanuit basic: 











A=FIN"VOODOO" 
PRINT EXT A 

of 
A=FOUT" TIME" 
SPUT A, "12:54EE1" 
PRINT EXT A 


Bij output fites is de EXT (extent) van een file altijd setijk aan 
de hoosst bereikte waarde van PTR (vaak saat dan EXT selijk op met 
PTR (wordt verhoosd tijdens een PUT)) 

Nadat u een poosje sespeeld heeft met random files zal het direkt 
opvallen dat de disk niet bij elke byte dat wordt seschreven besint 
te draaien. Dit zou zeer vetrasend werken omdat dan elke Keer de 
Schijf op toeren moet komen: het juiste track moet worden cpsezocht 
etc. Om dit te voorkomen worden eerst 2556 bytes in het 
computerseheveen oosestasen Cdit stuk geheusen heet een 
tile-buffer) en als dit Stukje geheusen vol is: wordt in het in een 
keer op schijf gezet. De makers van de driverbesturings-schakeling 
Cdisk-controller) hadden dat ook al bedacht, zodat het zelfs niet 
e=ns moSPlijk is om Slechts een byte op Schijf te zetten. Alle 
sesevens moeten dus in blokken worden seschreven of gelezen. Op de 
Schijf heten die biokken sectoren. De lengte van zo'n sector Wordt 
tijdens format sezet op 256 bytes. De DUS heeft ruimte in RAM 
gereserveerd voor vijf file-buffers: zodat er maximaal vijf files 
teselijk seopend mosen zijn. Dit stuk RAM loopt van #2308 tot 
#2800. Bovendien Wordt het stuk geheugen van #2200 tot #2508 
sebruikt om de administratie bij te houden van die vijf seopende 
files. Probeer je deer dan vijf tiles te openen dan volat een @rYor 
141: NO BUFFERS AVAILABLE. Alis de DOS ontdekt dat de ssaevens in 
het administratie blok niet meer kloppen doordat je dat per onseluk 
hebt overschreven: dan volst een error 182: FILE CONNECTION LOST. 
De DOS heeft nos een ingebouwd srapiet als bij PUT ot GET een 
file-handie selijk aan nul wordt seseven: dan worden alte segsvens 
die met PUT worden wessestuurd afsedrukt op het scherm, en alie GET 
routines lezen de sesevens vanaf het toetsenbord ipv. uit een file. 
Voorbeeld: SPUT 0, "BREINBREKER" 


Er is nos sen andere manier om sesevens in een file te krissen. nt. 
met het DOS commando 'SPOOLU', Dit commando moet warden gevolad door 
zen tile-naam en zolans deze file seopend iS: worden alte bytes die 
5e met scherm worden afgedrukt ook in die file opseslasen. De 
tesenhanser van SPUOL is EXEC dat voK sevolad moet Worden door „en 
fite-naam. Zolang deze title senpend is Wordt alte invoer niet vanaf 
het toetsenbord gelezen: maar vanuit die file (zie ook ACORN NIEUWS 





4. 
Tenslotte nos enkele error metdinsen die wel door de DÛS seseven 
kunnen worden: maar die ik nos nergens vermeld heb zien staan (de 


teksten die horen bis een error heb ik dus ook zetf bedacht): 
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19 CAN'T EXTEND 
De voor een outeut file sereserveerde ruimte kan niet verder 
worden vitsebreid. 

24 PTR OUT DF RANGE 
de PTR wordt verzet naar een niet toesestane plaats (buiten 
de gereserveerde ruimte). 

33 UNKNOWN HANDLE FOR OUTPUT FILE 
er is geen openstaande Outpyt file met seseven file-handle. 

54 UNKNOWN HANDLE FOR INPUT FILE 
er is seen openstaande input file met de seseven file-handle. 

87 TRIED TO READ BEYOND EDF 
er Wordt seprobeerd over het einde van de file te tezen. 

92 RANDOM FILE NOT FOUND 
de fite staat niet (meer) op dezelfde plek on schijf waar die 
tijdens het openen nos Wel stond, Een eengaal geopende file 
kan by, sedelete zijn of de schijf kan Zijn verwissetd. 

128 ILLEGAL FILE-HANDLE AFTER PTR 
In een PTR-assienment wordt een handle sebruikt die niet bi 
een open file hoort, 

148 RANDOM FILE LOCKED 
Treedt on als je Probeert bytes te schrijven naar een 
selockte file. 

141 NO BUFFERS AVAIRBLE 
Er mosen nooit meer dan vijf files worden seopend. 

182 FILE CONNECTION LOST 
Het administratie bfok van de file dat in RAM staat 
opseborsen list door elkaar. 





Verder zijn er natuurtijk de normate (2) DOS en DISK errors. Deze 
Staan =chter wet in de DOS-handleidins 

Er is bij error 148 nos iets vreemds aan de hand. Als deze error 
optreedt is er nos niets aan de handi de DOS verbiedt terecht dat 
er in een setockte file kan WOrden geschreven. Op dat moment is de 
lenste van de file no3 wat die was voor dat de error optrad. 
Proberen we nv echter de file te stuiten (de file ulijft na een 
error open staan) dan sebeurt er iets drastisch: de DOS ziet dat de 
EXTensie van de file selijk aan nul is (er is nos seen enkel byte 
aePUT) en zat bii SHUT de lenste van de file selijk aan de EXTensie 








maken,.....BBZZZZzzzz...KLIK. Nu is dus de lenste van een geiockte 
file aereduceerd tot nul 1!!! FOEI !!! Dit verschijnsel moet naar 
mijn bescheiden menins worden aansemerkt als een fout in de DOS 
{maar ja, „er zijn wel meer 4K prosramma’s waar wet iets verkeerd 
mee saat (of betert sina). 

Als slot opmerking wil iK nos even Kwijt dat het niet de bedoeling 


ig dat prosrammeurs sebruik maken van de seheusen plaatsen #2200 
tot #2528, ondanks dat deze ruimte alteen voor random files wordt 
sebryikt. In ae toekomst toop Je door Op deze manier te 
erosrammeren zeker vast (wat bv. als we de uitvoer van zo'n 
prosramnma met SPOOL op schijf zetten?}. Als je toch van wat extra 
RAM sebruik wilt maken, zoek dan tenminste eerst vit welke 
file-buffers op dat moment niet in S@ebruik zijn. Dat kun je zien 
aan het byte op ?#CD, de eerste 5 bities hiervan seven aan weike 
buffers in sebruik zijn: het eerste bit voor de buffer van #2328 to 
#2400, het tweede voor die van H#2409 tot #2508 etc. (andere 
zero-pas= bytes staan Uitsetesd in ACORN USER van mei 1984) 
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2 peste Wezer: dit stukje heett miets te maken met een 


middeltje tesen hoofdeijn. (Hoewel je van ATOM-iseren soms aardig 


hoefdpijn kunt krijsen!) 


Het saat om een hulproutine voor het grafisch Printen met de 
microline-88 printer,Overigens is het aak voor niet-arinter 


bezitters best leuk als srafisch experiment! 
Wat is het prableen? 


deeft U al zens zen Cirkelvorm, bijv, de analose Klok uit het 
handboek blz.85, proberen vit te printen op de microline-ED met 
zen sratische erint routine?CACORN NIEUWS 82/8 blz.57 of 85/6 
blz,43), Ze jar dan weet U al wat er mis saat! Voor de anderen 
even ter Verduidelijking: in Plaats van een cirkelt komt êr een 
“eit ce het papier. Het plaatje wordt in de lenste richtins 


uitgerekt! 
Wat is de corraak? 


Het pixel waarmee seprint wardt is niet vierkant: maar heeft een 





huuste/breedte verhaudins van Ca. 3 
Plaatjes met een faktor 4/3 in de hooate (of lenste als u wilt) 
vitserekt. 

Wat is hiertesen te dien? 


Hierdoor worden alte 


De eerste gedachte is: ontwerp zelf een nieuwe Karakterset 
mMeb,v. het eresramma van Martin Janssen (ACORN NIEUWS E&3/6 
blz, 4E) met vierkante pixels! Probleem: een Kompleet veld 


de aansturing hiervan Zin 


bestaat dan vit 8 pixels en voor 
eer over om opk nos een normaal 


bits nodis! We heben dan niets m 
karakter te kunnen erinten!! 
Een andere methode is het plaatje voor het printen zodanig 


eikaar te Persen (comprimeren) dat het na het vitrekken bij het 
printen (expanderen) juist weer Soed is, Dit lijkt een 
uitvoerbaar elan: maar hee doen we het precies? Gewoon Î op de 4 
lijnen wessaoien? Wet jammer als daar juist een horizontale lijn 
stond! Die ben je dan Kwijt! Nee, een aardie alternatief blijkt 
te zijn Om elke be lijn met de Se te vermensen (losisch te OR-en 
dus), Natuurlijk raak je nog steeds informatie Kwijt, Wat van 


twee witte punten onder #@lkaar in de Je en be lijn is er 





comprimeren een zoek! Tech blijkt dit in het alsemsen niet 


storend te zijn. 


Het nu volsende prosramma verricht deze Srafische truc; en het 


is vitermats geschikt Gat met een srafishe print reutine 
worden secombineerd, 

De werking: 

Er worden twee line sointers bijsehouden: 


source line pointer? hierin staat het startadres van de oude 





Lein 

destination line gointer?: hierin staat het Startadres van d2 
nieuwe lin. 
De ude lijnen worden lijn voor lijn op de nieuwe lijnen 
overgezet, -n de ovde lijn wordt sewist, Normaal worden 
aflove van zen liin zowel source line pointer ats destination 
tine oointer verhaoed. Echter om de & Lijnen blijft 





destination line pointer een keer staan zodat telkens de Se en 


de be liin oP dezelfde liin warden afgebeeld. 


[GRAPHIC COMPRESS [| MAARTEN VAN ALPHEN LACORN NIEUWSJPRG. 37 | 


Schematisch: 





DOME U AN 


Het prosranma werkt alleen in srafische mode 4, en aanroepen 
ervan (met LINKE ...) heeft tot sevols dat het beetd "seplet" 
wordt.Dit is Juist voldoende om na het printen met de 
microtine-88 weer een net plaatje te krijsen. 


LISTING: 


Gebruikte Zero-Pass adressen: 
#32, HIT : source tine pointer 
#34, HIS t destinatien tine peinter 











OPMERKING: Het prosramma besint met lijn 2 op lijn 1 af te 
beelden. 
10 REM GRAPHIC COMPRESS 278 CPYaR20 LINE KLAAR? 
28 REM GRAFISCHE COMPRIMEER ze8 BNELL2 NEE?: LL2 
S@ REM ROUTINE VOOR DE 290 DEX LINE: zt INE-1 
48 REM MICROLINE-S6 300 BNELLS LINE=02 
50 REM AUTEUR: KS LDXa4 LINE: = 
ED REM MP. VAN ALPHEN BNELLá JUMP LLé 
78 REM WIERDEN (0V) SOrLLECLC INCREMENT 
88 P‚ siz 348 LDA#S4 DESTINAT ION 
B IN, “ASSEMBLEREN OP"D 250 RDCSH28 LINE 
108 DIMLL6:F. N=BTO4: LLN=DS N. Kl] STA#S4 POINTER 
118 FOR I=i TO ZiP, $213P=D 578 LDA#S5 
120f 580 ADCa8 
150:LLOL DAAG INITIEER 390 STA#35 
1408 STAHI2 SOURCE LINE 4&BO: LL4ACLC INCREMENT 
156 STA#I4 POINTER EN 418 LDA#S2 SOURCE 
162 LDAAHEG DESTIN, LINE 422 ADCSR2 0 LINE 
178 STARST POINTER 4e STA#I2 POINTER 
188 STA#I9S oP #+E005 440 LDA#S5 
139 LDXa1 LINEz=1 450 ADCag 
208:LL1LDYAE ENDEX: =0 4ER STA#33 
21O:LL2LDA(HS2), Y SOURCE LINE ä7e CMPau#9s #3800? KLAAR? 
220 ORACHS4) ; Y DESTIN.LINE 488 ENELL1 NEW LINE 
230 STA(#34), Y BERG OP! 438 RTS KLAAR: 
240 LDAAG MAAK SOURCE soot 
250 STACHI2), Y LINE SCHOON 510 N. 5P. SE"EINDADRESS=#" AP" 


268 INY NEXT POINT 523 END 
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18 REM ORGELTJE 178 FIN. “VIBRATD-DIEPTE @-1"%0 
28 REM R‚ GERRITSEN 188 XE=1, 0534602. GESTE 
ZO FDIMXTT22:DIMLLS, U22, @-1 


















4B $U="BASEDRFGYHUJIKLPISCA * (2 

55 U 127 2 AG=ADKLESN. FATTE 

6D P.$12$21:F.N=BTO1s P=GiL 228 P.G E R YUI P@ DEL"? 
78 LDAHT22: BEQLL23LDXA21 232 P‚“ ASDEFGHJEKL tE A RET" 
85: LLOCHPU, Xs BEGLLI 248 DO 5 AK=AK+AD 

IB DEXsBPLLLG:LDXHEDE BPLLL 1 253 KEYA:LI, Q 

10B:LL2LDX822 268 IFA=4I AK=eKkt, O1 
110:LLISTX#EDI RTS 278 IFA=SOs KEK, Oi 

120JiN. :P. $6 288 por 

158 ?RBEOE=H7F + HDEDB=HCD 298 K/Z 

140 '#HBD4=-1  ?#B0A2=0 300 'HEBDEACATT CIRED) / HK) 

158 FIN, "TOONHOOGTE 1-28"%K 318 I=l+isIFIeXVi =D ND=- 0 





168 FIN, "VIBRATO-TEMPO B-28"XV|320 U. Z 


Toetichtins bij het ORGELTJE. 

Geinspireerd goor het prosramma HARPSICHORD vit de manual: heb ik 
een ander (beter) prosramma gemaakt. Het heeft een aantal 
verschillen met het oude proeramma. Ik zal er een aantal opnoemen. 
= meer toetsen (22 tonen) 

— sean notenbalk 

= de atom Kan het niet naspelen 

= vibrato! (voitegdig in te stellen) 

= continy verstembaar 

= oktaaf omhoos/omtaas tijdens het spelen 

— er is een FPROM, JOSBOX en een VIA (6522) nodis 

= setuid Komt van de DIN plus: niet vit de atom-spzaker: 

— het prosramma is korter 

= je Kunt er heel vals mee spelen (vibrato misbruik) 

Al met al is het wet de moeite waard om het even in te tikken. Om 
seluid te horen moet je een weerstand (4K7) tussen PB7 (van de VIA) 
en Pin 1 van de DIN plus solderen. Ais u van MJCOS sebruik maakt 
heeft u dit al moeten doen. Het prosramma maakt aebruik van Timeri 
in de tree-run mode. De VIA seneresert een bloksolf op PBJ de 
treaventie wordt bepaatd door het setal wat er in T1 sezet wordt. 
De bediening is ers eenvoudie, Ais ude 5 vrasen beantwoordt, Kunt 
u spelen oP Uw atom. Enkele voorbeelden voor de vrasen: 5, @ © 
(zuivere tonen) 5 Zr 4 .03 (vibrato)s 15, @ B (mose tonen)t 4: 
28, 205 teen soort lesley effect) t ú, 5: 1 (daar weet ik seen 
naam voor, wel leuk). Met de toetsen 1 en 2 kunt U de toon iets 
hoser resp. iets laser maken. Dit is ers handis als U met een plaat 
at met de radio wilt meespelen. Met de toetsen 5 en 4 kunt u een 
Dktaaf omhoos resp. omlaas. Ook era handie (niet te lans insedrukt 











houden !). Ais uv seen JOSBOX heeft (of een andere box met het 
statement. KEY) zult uv zelt een subroutine moeten maken die het 
toetsenbord scant er de ASCII waarde oplevert: die vervolgens in de 
variabele A sezet moet worden. Geen toets seeft A=0. Het is 
masekijk om Sgetijktijdis nos een Sisnaal te maken: met bit @ van 
#EDDZ (tape outeut). Misssihien kun je zo een tweetonia ovsel maken 
ot sen ritme-box??? Laat een wat van je horen ais je er iets leuks 


mea hebt 3edaarn* 
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I.C. nr l op het schema van de Acorn Atom is een 6522 Versatile 
Interface Adapter. Zoals de engelse naem het duidelijk zegt : 
een veelzijdig invoer/uitvoer orgnen. 


Beschrijving 





Zoals U op boventtaande figuur kunt zien is de 6522 een IC, 
met 40 pinnétjes. U ziet de data pennen DÔ tot D7, een R/W pen, 
en twee chip-select pennen CSL en TS2. De VIA kan dus vergele- 
ken worden met een soort geheugen. We hebben sileen nog adres- 
lijnen te kort om het beeld volledig te maken. Deze worden nor- 
maal erngesloten met de vier register select lijnen RS} tot 

RS3 respektievelijk met aà tot AJ. Vier adreslijnen wil zeggen 
16 aöresssen..De VIA gedraegt zich ten opzichte van de proces 
sor dus zo ongeveer als een geheugen met 16 bytes. In tegenstel- 
ling tot normâle geheugens die"passief" data vasthouden, js de 
VIA echter een zeer aktieve chip. Op deze aktiviteit wijzen je 
lijnen {2 en TRG. Dit voor wat de verbinding met de microprocts- 
sor, dus het inwendige van de computer betreft. 

Er zijn nog twee groepen van echt pinnetjes PAÒ tot PAT en PBÒ 
tot PB7. Dit zijn twee groepen van echt lijnen welke communica 
tie met de buitenwereld mogelijk maken. Verder zijn er nog twee 
meal twee controlelijnen CAl en CA2, en CBl en CB2, 

Tenslotte ís er nog de reset-lijn RES. Als deze lijn laag wordt 
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gemaakt wordt de VIA gereset, de inhoud ven alle "geheugens" in 








de VIA wordt nul. Uitzonderingen worden verder nog besproken, 


De Via in de Atom _ 

toals reeds eerder gezegd neemt de VIA 16 adrespleetsen in in de 
meiory-map van de ATOX: van B8Ô® tot BEÔF. Toor onvolledige ad- 
resdecodering is het hele gebied van B8Ô} tot BBFP "bezet". 

De poorten A er B zijn verbonden met pennetjes op de 64-polige 
connector echteraan de Atom, volgens voigende figuur : 


Sr 
Phats jk 


hdd 
PR PSE on 








Ee Per 
Tere? 





Kark hierbij op dat de a-lijn bij de Atom in feite de b-lijn is 
op de connector. Dit heeft mogelijk al tot misverstanden geleid. 
Goed oppassen dus. De A-poort is ook via ICSO (sen 74L5244 buf- 
fer) beschikbaar op de printer-connector. Zie evenêens bovenstean- 
de figuur, Om de VIA volledig te kunnen gebruiken moet de ver- 
binding IK2 aangebracht zijn (zie uw schema). 

In de Atom wordt de VIA hoofdzakelijk gebruikt als printer=uit- 
voerorgaen. We kunnen deze veelzijdige chip echter nog voor tal 
van andere toepassingen gebruiken. 


Het is de bedoeling dat in dit en leter nog volgende artikels 

het gebruik van de VIA wordt verduidelijkt net voorbeelden en 
progremies., De data sheets ven dit I.C. zijn nogal omvangrijk, 

en niet altijd even begrijpelijk voor niet=specialisten,. Verder 
is er bepaald weinig specifieke literstuur over te vinden. Slechts 
enkels bladzijden in boeken gewijd aan de 6502 en een elektuur- 
boekje met 26 bladzijden. Dit boekje kost 246,- BP, dus ongeveer 
9,4 BF per bhadzijde, dus eigenlijk veel te duur voor wat er 

vaar instaat. On U de gankoop van dat boekje te bespsren zullen 
ws het U dus zelf uitleggen, en veel beter natuurlijk (!!!). 
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Om nuttig gebruik te kunnen maken van de VIA in onze Atom, moeten 
we zorgen àat we er bij kunnen, Zoals reeds eerder gezegd ie de 
VIA verbonden met een aantal pinnetjes van de 64-polige comnec- 
tor achteraan onze Atom. Nu is het zo dat deze connector bij velen 
reeds gebruikt wordt om een connector met flat-cable tn te stop=- 
pen voor aansluiting van externe uitbreidingen of de floppy-disc 
drive. Om dus bij de VIA te kunnen zou Je eigenlijk moeten kiezen, 
ofwel werken met de externe uitbreidingen en dus de flat-cable 
erin, ofwel werken met de VIA en de flat-cable eruit. Om dit te 
vermijden doe ik hier een praktisch voorstel : Ì 





b ic een DIN. connerfor 
waarvan de b- lijn is 


recht geplootd . 





Ere 4 


Op een klein Vero-plostje solderen we cen vrouwelijke connector 
(a). Aan de andere kant van het Vero-plaatje solderen we twee 
mennelijke connectoren (b) en (c). (b) is eenzelfde connector 
als dezs welke reeds in de Atom zit. Door de overeenkomstige 
pennetjes ven (a) met deze van (b) te verbinden (weer wat sol- 
deerwerk met draadjes), hebben we dus de mogelijkheid om connec- 
tor (b) te gebruiken zoals we vroeger de connector in de Atom 
gebruikten : voor de flet-cable voor externe uit-breidingen of 
de floppy-drive. Niets aan de hend dus. Overigens moeten we al- 
leen die lijnen doorverbinden die we werkelijk nodig hebben : 
elle data-lijnen, adreslgijnen en control-bus-lijnen. Alle ande re 
pennetjes van connector (b) verbinden we met massa. 

De lijnen welke «. te maken hebben met de VIA verbinden we met 
connector (c). Welk type van connector garn we hier gebruiken ? 
In principe ben je daar vrij in. Toch is het goed om hier alle- 
maal op dezelfde manier te werk te gaan. Dear we nu de VIA vrij- 
gemaakt hebben, kunnen we hem nu gean gebruiken om parallelle 
communicatie tussen twee Atoms of tussen een Atom en een BBC of 


een ondere gomputer mogelijk te maken. Hiervoor moeten we dus 
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duidelijk afspreken. Dit kunnen we misschiem op een volgende 
vergadering doem. Je kan er voorlopig gewoon twintig draadjes 
eanhangen, zodat je in ieder gevek de VIA kan gebruiken, 


En nu ……. progranneren 

Zoals reeds eerder gezegd zijn er 16 geheugenplaatsen in de VIA. 
We gaen ze hier niet allemaal tegelijk opsommen, maar ze wel be- 
spreken wanneer we ze nodig hebben. 


Gebruik als parallelle input-output 
Toch nog eerst een hardware informatie. De beide poorten van de 


VIA gedragen zicf els TiL-chips : dwz als ze als input gebruikt 
worden gedragen ze zich als 1 TTL-lond, als ze als output gebruikt 
worden kunnen ze één TTL-load drijven. Om het niet al te ingewik- 
keld te maken kunnen we ons hier voorlopig bij’ houden, Het beste 
is dus bufferen ! Daarvoor kun je best gewone TTL-tuffers met 

‘open collector gebruiken zoals de 7406, 7407, 7417, 7416, 7426 

en 7438, 

Yoorbeeld : We gaan een quiz spelen met 4 deelnemers. Tedere 
deelnemer heeft een drukknop waarop hij kan druke 
ken als hij het antwoord weet. Als hij gedrukt heeft, 
gaat zijn lamp branden en heeft het indrukken van de 
andere knoppen geen gevolg meer tot de volgende vreag 
gesteld wordt. Dit wordt aan de computer duidelijk 
gemaakt door indrukken van"shift", 

Hardware ken voor deze toepassing gebouwd worden als 
volgt : 


sv Pao PAâ4 PAL Pa3 





(7d 
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Om de VIA te gebruiken voor andere doeleinden dan om te prin- 
ten, moeten we hem ook eerst softwarematig vrijmaken. Dit staet 
uitgelegd op blz 170 van het handboek : 

lo Wada = W2g8 + 3 

20 HEBEZC = 
Ih lijn 10 wordt de printer-routine van de VIA verwijderd. In 
lijn 20 wordt de inhoud van geheugenplaats B8ÁC met f geladen. 
B84C ís het adres van het Peripheral Control Register van de VIA, 
Dit register tepaald‘de manier waarop de VIA op toestandsveran- 
deringen van CAl, CA2, CBl of CB2 reageert. Dit hebben we nu niet 





noâig. Hierover later meer. 
We moeten nu.sen de VIA vertellen welke lijnen van poort A out 


put lijnen moeten worden, en welke lijnen inputs. Dit doen we 
met volgende inetruktie : 

30 WBET3 = HÓF 
OptB8f3 staat het Data Direction Register van poort A (DDRA). 
De lijnen welke we outputs willen maken, daervoor moeten we de 
overeenstemmende bits in het DDRA'1“ maken; voor inputs moeten 
de overeenstemmende bits in het DDRA“g "zijn. Met de instruktie 
WEBEJJ =#YF maken we de laegste vier bits 1, dus de lijnen 
PAG tot PA3 worden outputs, De lijnen PA4 tot PAT worden inputs. 
Om bijvoorbeeld alle oneven lijnen (PAl, PA3, PAS en PAT) inputs 
te maken, en de even lijnen outputs, moeten we het binair getal 
G1G1J1ZL in het DDRA laden, hetzij+#55. Dus P#BB4J = «55. 
Ten programma voor ons quiz-spel kan er dan als volgt uitzien : 
10 !w248 = WWrepB + 3 
20 BEHO = 7 
30 HEBE = AGF; Amf; BH; Cad; De 
40 PRINTADRUK SHIFT ALS DE VRAAG GESTELD IS"! 
50 IF WBIGl = 127; GOTO 70 
69 GOTO 50 


TO IFWB8PL =#TF; WBB = #8; D= D + 1;30T0 120 
20 IF2#BEGL =#BE } 2WBEOl =#04 ; C= C = 1; GOTO 130 
GO IP?#B891 =H#DF ; MBBYL wfo ; Be B + l; GOTO 140 
100 IF #BEGL =#EF ; 74BBO1 =#01 ; A= A+ 1: SOTO 150 


110 GOTO 710 

120 PRINT"D IS EERST! ;GOTO 40 
130 PRINIT"C IS EERST"';GOTO 40 
140 PRINT"B 7S EERST"':;GOTO 40 


Ee 
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150 PRINT"A IS BERST“!';.90%0 40 


Dit is slechts een eenvoudig programmatje, en velen onder U zul- 

len wel wat beters kunren bedenken voor wet betreft het behandelen 

ven de score en 20, maar aar gart het nu niet om. Het gaat om het 

werken met de VIA. 

Lijnen 10 en 20 werden reeds verklaard. 

Lijn 30 : Laden van DDRA met ZZd41l1l = #P 

Lijn 50 : Kijk of shift ingedrukt is 

Lijn 70 : Kijk of krop D ts ingedrukt, indien ddt zo íe, laat 
Jaap D branden 

Lijn 80 : idem voor knop C en lanp C 

Lijn 90 : idem voor knop Ben lamp B 

Lijn 100 : idem voor knop A en lamp A 

We gean er hierbij van uit dat het doorlopen ven lus TO tot 110 

snel genoeg is, zodat tegelijkertijd indrukken van twee drukknop- 

pen niet mogelijk As, of toch zeer onwearschijnlijk. 


Als geen knop:is ingedrukt, is de inhoud van B&fl = FF. 


Een tets meer gosofistikeerd programma, waarbij we van de VIA 
gebruik maken om parallelle communicatie tussen twee ATOMS te 
realiseren vinât U hierna, 

De nodige hardware-verbindingen zijn de volgende ;: 


Atom A Atom B 


CBA (ba) lb) CBA 








Pag (b40) (ste) PB 
PB? (es) by PB 
Le (bl) A 
cB2 (b44) (e12)C B 1 
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188 REM INTER-MICRD COMMUNICATION (ATDM) 
118 REM N.B. E5Z2 VIA MUST BE FITTED 
120 REM (EC) Vv, FOJUT 1983. 

120 DIM LLS, FIGFOR N=D TO 1S3LLN=-1iN 
140 V=tBEDDIREM VIA BASE ADRES. 

150 3 REM START ADRES QF DATA, 
168 23 REM LENGHT OF DATA FILE. 
17 GOS. a: GOS. a: REM ASSEMBLER 

188 DO 

130 _ IN."TRANSMIT OR RECEIVE (1/R"sF 
208 UNTIL $F="T" OR $F="R" 








IF $F="T";GOS. ts; REM TRANSMIT. 
IF $F="R" GOS; rsREM RECEIVE 
END 





ZEOTREM TRANSMIT 

278 DD 

280 IN. “STARTADRES OF DATA TO TRANSMIT“' A 
230 IN, "ENDADRES C+1)"B 

308 UNTIL BA AND B-A {= #FFFF 

518 'S=At!L=B-A 

320 P, "START RECEIVE PROG,ON ZND MICRO" 
330 P. "HIT ANY KEY WHEN DONE" sLINK #FFES 
34B LINK LLOSREM CALL TRANSMIT 

350 RETURN 

360 

Z7OrREM RECEIVE 

380 IN. “STARTADRES FOR DATA STARAGE"R 








530 'S=As 

485 LINK LLS:REM CALL RECEIVE 

418 RETURN 

«28 E58 

aZOaREM ASSEMBLE MACHINE CDDE EEB:LLS \ GET NEXT BYTE 

448 DIM P-1: 678 JSR LL7 

450 EBB LDA V;STA V;STA (5), Y 
GEBiLLG \ TRANSMIT ESB JSR LLEFBNE LLS:RTS 

470 JSR LLE:ILDAOHFFG STA V+z 708 

4E8 71G:LLE \ INITIALISE VIA 
4D LDY DLSE-L 728 LDA B#7FISTA V+HE 
SOO:LL1 \ SEN FILE LENGTH 728 LDA S#FFISTA VD 

518 LDX L+xrYsSTX ViJSR LL7 748 LDA S#EB;STA V+#C 

529 INY3EMI LLt 750 LDA d#ER:STA V+RCIRTS 
558 7EB 

S54OrLLE \ SEND NEXT BYTE 778:LL7 \ DATA RECEVED READY 2 
5358 LDA €S),Y;STA VsJSR LL7 788 LDA V+#DIAND #18 

SEO JSR LLE:DNE LLZ:RTS 798 BEG LL7:RTS 

578 Ea8 

SED:LLT \RECEIVE BiB:LLB \ INCR.PTR & CHECK IF END 
590 JSR LLE:LDA A#D;STA Vri 828 INY:BNE LLSsINC S+1 

08 eza:LL3 

E18 LDYAESE-E E4B LDA LFBNE LLIGIDEC L+1 
E2O:LLá \ GET FILE LENGTH eSB:LL1D 

E38 JSR LL7ILDX VISTX WV EEA DEC L3LDA LSORA L+1s;RTS 


EAB STX L425INVSEMI LL E78 P. ES RETURN 
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Het programma is be- 
doeld om parallelle communicatie tussen twee atoms toe te laten. 


Psrallelle communicatie kan veel sneller gebeuren dan seriëel, om- 
dat steeds acht bits tegelijk worden verzonden en ontvengen. 


Bekijken we volgende programmalijnen : 


140 V = 4#B844 BBE is het besisadres van de 
VIa 
720 LDAOHT7F; STA V + #E V+#E =#D8HE = adres van het 


Interrupt Enable Register (ER 
#TF = SII binair 

730 LDAO4 FF; STA V + #D V + #D =&B8ED = adres van het 
Interrupt Flag Register (FR 
#FP = 111111 hinair 

740 LDAÔHRS ; STA V + #C V + #C =#B8ÍC = adres van het 
Peripheral Control Register PCR 


In bovenstaande programmalijnen komen we reeds ârie registers van 
de VIA tegen. We zullen ze alle drie bespreken. 


Deze twee registers werken zeer nauw samen. Hun samenhang kan 
het beste worden voorgesteld met een logisch schema, zie de fi- 
guur op volgende bladzijde, 
Aen het logisch schema kunnen we zien det een interrupt zal op- 
treden onder volgende voorwearden : 

= IER7 (bit 7 van IER) moet 1 zijn. 

— minstens fén ven de bits IERS tot IER6 moet 1 zijn 

—= de overeenstemmende IFR-lijn moet ook 1 zijn. 


Het Interrupt Flag Register IFR (adres#B8jD) : 





Ye kunnen dit register lezen : in mechinetaal LDA #B8#D, of 
P.&#BBOD in basie, Op deze manier kunnen we lezen welke bits 1 
of Z zijn. 

Schrijven in het IFR is ook mogelijk: in machinetaal STA #B8gD, 
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lER3 














1ERF 


Figuur : relatie tussen IER en IFR 


of in basic : ?#BEPD = XX. Bits welke 1 geworden zijn door een 

of andere operatie, kunnen nul gemaakt worden door een l te schrij- 
ven in die bit. Dat is precies wat er gebeurt in programmalijn 

730 : LDAOSFF; STA4#BSGD. Het IFR wordt volgeschreven met 1111111, 
waardoor elle interrupt-flngs ge"cleaered"” worden, Dus om interrupt- 
flzgs op nul te zetten, een l erin schrijven !!! Opgepast dus ! 

Bit 7 kan niet zomaar nul gemaakt worden door er een 1 in te schrij- 
wen. Zoels in de figuur is te zien, is bit 7 het resultaat van een 
logische bewerking. Om bit 7 nul te maken, mo@ten alle andere bits 
nul gemaakt worden. 
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Het Interrupt Enable Register IER (adres #B89E ) : 





Een schrijfoperatie in het IER heeft een verschillend resultaat 
naergeleng bit 7 één is of nul is. 
IER7 = g 
Voor iedere 1 die in het IER geschreven wordt, wordt de overeen 
stemmende bit in het IER ge"cteared" : 
Voorbeeld : inhoud IER voor de schrijfoperstie : Ural 
we schrijven ZEZddZJlin IER : 
LDAIRD1; STA #B8ZE 
resultaest : inhoud IER na de 
schrijfoperatie » ggdigddg 
Dus goed opletten ! Als bit 7 nul is, maken de ééntjes in het 
woord dat je schrijft, de overeenstemsende eentjes in het IER nul! 
IER7 = 1 
Voor iedere l die in het IER gechreven wordt, worden de overeen- 
stemiende bits 1. 
Voorbeeld : inhoud IBR voor de schrijfoperetie : 4dd14gg1 
we schrijven 1919BZEE in TER : 
LDAD#AD; STA #BEZE 
resultaat : ‘inhoud IER na 
schrijfcperatie : 1511491 


Lezen van IER : Bit 7 wordt altijd als een 1 gelezen, de andere 
bits worden gelezen zoals ze zijn. 

PAS DUS GOED OP !!! Dit is niet in overeenstemming met de infor- 

matie welke gegeven wordt in het boekje dat door Elektuur over de 

VIA is gepubliceerd. In het Elektuur-boekje staat namelijk voor 

wat betreft het schrijven met bit 7 nul, juist het tegenovergestel- 

de als hierboven wordt uiteengezet. U kunt echter gemakkelijk na- 

gaen wat juist is, door enkele schrijf- en leesoperaties te doen. 

U zult zelf vaststellen dat wat ik hierboven heb uitgelegd juist 

is, Zo staat het ten andere in de data-sheets van Rockwell. 

Blijkbaer kennen ze bij Elektuur nog geen goed engels. 

Kijken we nu terug naer ons programma, lijn 720 : 

LDA9T7F; STA*BEZE 

Bit 7 = 0; alle andere bits zijn l. Door deze operatie worden 

alle bits in het IER gecleared! Dus een initialiseren van de VIA 

zodat geen interrupts zullen optreden. 


Als we nu een leesoperatie doen : P.&?#BEZE, krijgen we als 
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resultaat 





: 85, amz 140PPHH 1 


Funktie van de verschillende bits in het IFR : 


IER g 


IFR 1 


IFR 2 


IFR 3 


IFR 4 


IFR 5 


IFR 6 


IPR 7 


wordt 1 door toestendsverendering van CA2 (pin 39) 
wordt # door — ofwel een 1l te schrijven in IFR g 
— ofwel een lees- of schrijfoperatie in 
Output Register A (ORA, adres #B81) 
wordt 1 door toestandsverandering van CAL (pin 40) 
wordt # door — ofwel een l te schrijven in IFR l 
— ofwel een lees- of schrijfoperatie in 
ORA 


wordt l zodra in het schuifregister 8 schuifoperaties 
voltooid zijn 
wordt g door - ofwel een 1 te schrijven in IFR 2 
— ofwel een lees- of schrijfoperatie te 
doen in het schuifregister (adres & B&A) 


wordt l door toestandsverandering van CB2 (pin 19) 
wordt # door — ofwel een lees- of schrijfoperatie in 
Output Register B (ORB, adres«B8gg) 
= ofwel een l ste schrijven in IFR3 


wordt l door toestandsverandering van CBL (pin 18) 
wordt g door — ofwel een 1 te schrijven in IFR4 
— ofwel een lees- of schrijfoperatie in ORB 


wordt 1 door het nul worden van timer 2 
wordt # door - ofwel een 1 te schrijven in IFR 5 
— ofwel het lezen van de low-byte van 
timer 2 (ndres#B848) 
— ofwel het schrijven in de high-byte van 
timer 2 (ndres #B849) 


wordt 1 door het nul worden van timer 1 
wordt # door — ofwel een l te schrijven in IFR 6 
— ofwel het lezen van de low-byte van 
timer 1 (ndrestB894) 
— ofwel het schrijven in de high-byte van 
timer 1 (adres 8865) 
wordt l door het l worden van een der vorige bits 
wordt # als elle bits g zijn. 


ea. 59 ACORN Nieuws lEAST FOURIER TRANSFORMATIE | THED DEN EXTER 


Dit is een wat wetenschappelijk stukje over de Fourier-analyse, 
waar ìin AcornNieuws jaargang ’82 ook al iets over stond. Ik 
weet dat ik hier niet iedereen gelukkig mee zal maken, omdat 
het hele Fourier gebeuren wiskundig gezien toch wel wat hoog 
gegrepen ligt. Toch geloof ik, dat ik minstens een paar leden 
hiermee blij kan maken; vooral diegenen die in de 
elektrotechniek werkzaam zijn. Ik hoop desondanks dat ik een 
aantal leden warm kan praten voor deze techniek 

Meneer Fourier heeft aangetoond dat een willekeurig periodiek 
signaal op te bouwen ís uit een aantal optellingen van 
verschillende sinussen en cosinussen. Hoe meer van die sinussen 
en cosinussen bij elkaar worden opgeteld, hoe beter het 
oorspronkelijke signaal wordt benaderd. Dit is nu de basis van 
een omvangrijk wiskundig hulpmiddel om signalen en functies te 
bewerken. 

Fast-Fourier is een statistisch programma, waarmee, met wat 
haken en ogen, de Fourier-getransformeerde van een signaal 
berekend kan worden. Wat moet je nu bij zo’n 
Faurier-getransformeerde voorstellen? Stel dat we een signaal 
als functie van de tijd hebben.De Fouriergetransformeerde is 
dan een functie van de frequentie, We kunnen er ze dus in zien 
welke frequenties in het signaal “aanwezig” waren. In het 
voorbeeldje wordt de Fast-Fourier getransformeerde bepaald van 
1 periode van een cosinus. De getransformeerde zal een puls te 
zien geven op de plaats waar de frequentie aanwezig was. Zo’n 
puls, die oneindig smal en hoog hoort te zijn, noemen we Ben 
delta-functie. In werkelijkheid bestaat zo'n delta functie 
niet! De Fourier-getransformeerde heeft zijn waarden echter 
niet op een getallen-lijn.zitten, maar op een getallen-vlak. 
Dat komt natuurlijk niet echt voor in de natuur: het is een 
gefingeerd wiskundig hulpmiddel om dingen mogelijk te maken, 
die anders niet gerealiseerd konden worden. Zo'n getallenvlak 
noemen we een complex vlak. 

Hoe gaan we nu met Fast-Fourier om? In de procedure PDATA moet 
de functie, of de gemeten waarden, worden gespecificeerd. De 
arrays XXX voor de reëele waarden, en XYY voor de imaginaire 
waarden zijn tot index N=t. De functie wordt dus bemonsterd in 
N stapjes van tijdslengte XT (frequentie lengte 4F), Dus N&X4T 
hoort 1 periode te zijn. Nu vraagt het programma om N stapjes, 
waarbij Neen macht van 2, groter dan t moet zijn. Daarna 
vraagt hij om de tijdlengte van één zo’n stapje. Als laatste 
kan opgegeven worden, of naast de grafiek van de "absolute! 
waarde ook nog een tabel afgedrukt moet worden. 

Als voorbeeld neem ik van de casinus in PDATA de 
Faurier=-transformatie (heen richting, invullen:N), 8 stapjes, 
tijdsduur 1 stapje 1/8, en geen tabel. Er wordt dan keurig 
links en rechts zo'n delta functie getekend. Bij die frequentie 
is de "frequentie inhoud”, wat je daar ook bij voor moet 
stellen, hoog. Bemonsteren we nu niet met tijdsinterval 1/8 


maar bijv. 1/10 dan is de grafiek wat gevulder,. Er nu 
plotseling meer frequenties aanwezig, ten gevolge van een 
verkeerde meting! Er zitten aan het gebruik van Fast-Fourier 
dus nog wel wat haken en ogen. Fast-Fourier is, hoewel het niet 
echt iets rebels is, en we niet alles zo makkelijk kunnen 


voorstellen, toch van zeer veel waarde voor het werken met 
ti jdssignaten. 
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Als je het geheel 


ingetypt hebt 


zoals ak, dan ts TOF #568F, en 


is er nag net plaats in een standaard ATOM van I2k voor een 
bemonstering in 128 stapjes. 

Het programma is uitgerust met wen aardige 
error-opvang=routine, die nog uit te breiden is naar smaak. 


Wie wat 


deze wiskundige truuk, wil 


18 
28 
20 
40 
50 
[4] 
70 
so 
30 

188 
110 


iz 


1:56 


140 


218 
320 
230 
348 
350 
zen 
570 
380 
398 
480 
418 
428 
u38 
44e 
458 
4úE@ 
478 
458 
430 
SOR 





PROGRAM FOURIER 
REM FAST FOURIER TRANSF. 


REM aeotoptrptpk steken 
REM * AUT:TH,DEN EXTER * 
REM + DATUM 
REM sober sbeopependpe jedek 





REM DATA IN PDATA 


PROC PARTA, M 
XIF IJ 
AXEKKKCID 3 % 
AKKI AYEAKKEID ZAK 
LKEKYYCI V=hYYEND 
AYYCID AV ELVYLDD AX 
ELSE 
M=N/Z 
WHILE MJ 
J=J-M 
Mak CMI AZ) 
WEND 
JeJ+M 
PEND 











PROC PARTE:R‚ EM: Is Jo XT 
R=1 
WHILE RAN 
E=ZeR 
FOR M=1 TO R 
AT=PIKCD#(M-ADD/R 
B=COSCHT) 
ACSSINCHT) 
FOR I=M TO N STEP E 
J=l+R 
LBA X XLT) 
Utr YY ETD 
HV=ABeAYV CJD 
HVAV-ACHAKK CT) 
AXXCH AKKI KU 
KYYCI=KYYID HV 
AXL KNXCID U 
KYYEID AVV CID + 
NEXT 
NEXT 
R=E 
WEND 
PEND 
















hebben 
graag nader op weg helpen. 


meer interesse macht 


in het hoe en waarom van 


518 PROC PARTC, Ì 





XIF D=@ 
550 FDR I=1 TO N 
540 AXKCID=KKKLCID AN 
550 BYYCID EAYYCID AN 
SEG NEXT 
570 ELSE 
588 PEND 


590 

EUD PROC FOURIERCD),J, Is XB 
EIO XIF NI 

620  J=liP.#12:7#E1=0 

E30  P‚" *11* FFT FOUR" 
E60  P. "IER TRANSFORM STAR" 
E50  P,"TED*'" PLEASE" 
BEB P.“‚WAIT A MOMENT" 

E70 FOR Ist TON 

eso PARTA 

E90 NEXT 

700 _ PARTB 

718 _PARTC 





720 ELSE 
738 PEND 
748 


758 PROC TABEL: IXA, XB 
769 P‚SIZID=IE HEEL 


770 Pt FREQUENTIE * 
780 CASE $T OF 

79 R"D Po" REEEL"* 
EUD I") P‚r IMAGINAIR®? 
BIOC*R") P‚t ABSOLUUT“? 
B20(ST)  P. 812 3 IHEB=L 

838 _ CEND 

E40 FOR I=1 TON 

ese FP, KERCI= 1D 

ee CASE $T OF 

E7ACR*) FP. AXXCID 

BEB CI!) FP. KYYCIDD 

EIO(“A“)  KRAKXCID 

500 KB=XYY CID 

310 FP. SOR CXAAKR+LBEKB) 
320 CEND:P. * 

850 _ NEXT 

34® PEND 

ss 


AG. 


360 

378 

98e 

338 
1908 
1012 
1929 
1039 
1042 
1059 
18568 
1078 
1058 
1892 
1188 
1113 
1128 
1138 
1140 
1158 


11EB LN") 
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PROC PDATA, 1 
REM XXCI=RE, YYCI) =IM 
REM L. ARRAY'S, PLERSE 
REM XT=1 TIME INTERV, 
REM XF=1 FREG INTERV, 
REM EXAMPLE: 


FOR I=1l TO N 
KKXI=COSCHHPI CI 1D KT 
XYYIi=@ 

NEXT 


PEND 


PROC INFORMATION, #A 
DO 
P.$12:D=D 
P.'" "INVERSE FOURIER" 
INP,"  CY/ND"$T 
CASE ST DF 
=| 


1170" y") =| 


1189 
1150 
1209 
1218 
1228 
1238 
1248 
1258 
1268 
1278 
1288 
1298 
1300 
1518 
1320 
1558 
1348 
1550 
1350 
1578 
1388 
15338 
148% 
1419 
1420 
1450 
1448 
1458 
1468 
1470 


CEND 

UNTIL Dei OR De-t 

Do 
P.* "HOW MANY SAMPLE" 
P.* POINTS2"" "A POW" 
P."ER OF 2, PLEASE" 
INP. N 
ZR=LOG ÍN) /LOG (2) 

FUNTIL xR=%%R 

Do 
P." “WHAT IS THE TI“ 
P. “ME DF"' "ONE INTE" 
FINP. "RVAL (SEC) "AT 

FUNTIL XT) @ 

XF=1/KT 

P.” “TABEL IM:RE,‚ ABS" 

P. “OR NOT" 

INP." CI,R,A,ND "ST 

PEND 


PROC DISPLAY: XA, XB: 1: XM 
”M=B. O1 
FOR I=t TO N 
KAAKKCI FEBKYYCID 
KR=SER HANAA+KEBKLB) 
XIF XM (XA 
XM=XA 
ELSE 
KXXCI) =XA 
NEXT 


1488 
1498 
1500 
1518 
1528 
1558 
1548 
1558 
15568 
1578 
15850 
15392 
1509 
1618 
1628 
1658 
1548 
1558 
1658 
1678 
1689 
1E99 
1708 
i718 
1728 
1759 
1740 
1758 


1768259) P. 
1778129) P‚, "DIV, 


CLEAR 4 

ATACISBRAKK CH) /XM)+2B 

PLOT &, 38, A 

FOR I=2 TO N 
A={CI-1}#2208/N) +10 
BX 1SORLKKCID /XM) +20 
DRAWN A, B 

NEXT 

GRID 

PEND 


PROC GRID, I 
MOVE 30, 20 
DRAW 30, 1808 
MOVE 50, 20 
S={N-1) *220/N+ 30 
DRAN 5,20 
PLOT 1,168 
FOR I=8 TO N-1 
MOVE (I#220/N+50), 20 
DRAW (I*220/N+30), 10 
NEXT 
PEND 


PROC ERROR 

P.$12'*" “ERROR: " 

P. 28 

CASE 23 OF 
“ENTER ERR. ** 
BY ZERO"" 


17804131) P, "LN ERR, “* 


179035) P. 


YNO ROOM" sEND 


1830169) P,"FP,OUT OF RANGE" 


1518 
1820 
1838 
1840 
1659 
1868 
1878 
1588 
1898 
1922 
1918 
1920 
1950 
1940 
1350 


CEND 
PEND 


DIM TCZ2) 

0. ERRORS END 

INFORMAT ION 

FDIM XXXCND, AYYCND 
PDATA;FOURIERCD) $P, $12814 
XIF 2TOCHYN" THEN TABEL 








P," “aokABSOLUTE DIAGRAM" 
P, te “__ PRESS SPACE! 
INKEY A 

ELSE 

DISPLAY: INKEY A 

P. S12IEND 
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Voor veel spelletjes is al beschreven hoe we die moeten aanpassen 
om ze m.b.v. een joystick te spelen. Hiermee wordt het spelen van 
die spelletjes veel eenvoudiger en kunnen we een hogere score 
halen, 

Tech blijkt vaak dat de bediening niet echt soepel gaat (ook bij 
een goede joystick) en dat komt doordat als we de joystick ‘in de 
hoek” drukken (dus twee schakelaartjes tegelijk bedienen), dit 
niet als zodanig wordt herkend. Onderstaande routine vanaf regel 
190 maakt hier een einde aan. 

We gebruiken deze routine als volgt: In de al aan de joystick 
aangepaste versie van het spelletje (bijv. Snapper van Acornsoft) 
vervangen we de instructie LDA#BOOl (op de plaats waar de 
joystick wordt afgescand) door JSR JJO (dit ìs de nieuwe 
uitleesroutine). Deze routine bekijkt of we de joystick bedienen 
en levert de overeenkomstige codes op, net als we zouden krijgen 
bij LDA#BOUI. Tot zover niets bijzonders. Als we echter de 
joystick bijv. in de rechterbovenhoek drukken dan levert de 
routine afwisselend de code voor ’rechts (=#F7) en de code voor 
‘omhoog’ (=#EF) op. Dus bij de eerste aanroep van de routine de 
code voor ‘rechts’, bij de tweede aanroep de code voor ’omhaog’, 
bij de derde aanroep weer de code voor "rechts’, enz. Doordat het 
scannen van de joystick zeer vaak gebeurt, denkt de Atom dat we 
de joystick zeer snel afwisselend in de stand ‘rechts’ en in de 
stand ’”omhoaog” drukken. Evenzo natuurlijk voar de andere 
hoekpunten. 

Het effect hiervan bij Snapper zal dan zijn dat we veel 

gemakkelijker af kunnen slaan in het doolhof. Als we de joystick 
naar rechtsboven drukken gaat we net zolang omhoog totdat we naar 
rechts kunnen, dan gaan we net zolang naar rechts totdat we naar 
boven kunnen, enz. 
In onderstaand pragramnma vormen de regels 10-180 de 
joystickaanpassingen voor Snapper, uitgaande van de (originele) 
taetsenbordversie. De regels 196-450 vormen de nieuwe universele 
joystick-uitleesroutine. 











18 REM SNAPPER MET JOYSTICK 228 LSRA:ANDA#2F + TAX 
28 DIM JJZ 239 INCHEB:LDA#EB:LSRA 
T@ EOR I=OTOZIJJI=-1G NEXT 1 24B LDA JJ2,XsBEC JJ1 
42 P.$21 250 LDA JJ X 

SB FOR I=l TO 2:P=#7800 260: JJ ASLA: ORAHES 
EBCLDAI#SE; STA#B2IG 270 LDX#EE:RTS 

78 JSR JJG 

EB CMPOHEF ; BECHTEZA 2 1 P=tD7 DF OFF 

98 CMPOÉF7 ; BEUHTE2D U7GEAFAF 

109 CMPO#FE: BEO#SB2S OB2FABAF 

110 CMPAHFD:BEQ#SEIB 320 P!12=#0FOEGDOD 
12D JMP#3870 IIB P=P+1ESC 

138 LDYAROLI JMPHIEET 348: IJS: 

148 LDYa#02: JMP#SBE7 350 !P=#@BIF2FOF 

159 LDYARGI:JMP#IES7 TED P'4=#07070FAF 
1EB LDYANDO: JMP#IBE7 370 P!8=#DEOFODOF 
1702 385 P!12-HOFBEODOE 
18% PHIETESNDE 33e P=P+16 

199 P=#t3F23 400 NEXT I;P.$6 

20E: IJD 410 END 


21D STXHEESLDANDADI 5 STAKES 
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Elke diskgebruiker wil of moet toch nog wel eens gebruik maken 
van zijn cassetterecorder om programma’s op te nemen. Zo kun je 
programma's die je niet (meer) regelmatig gebruikt, maar toch 
nog wel de moeite van het bewaren waard zijn, heel goed op cas- 
sette zetten.Je krijgt daarmee weer meer opslagkapaciteit op je 
diskettes beschikbaar. Cassettes heb je meestal nog genoeg uit 
de tijd dat je geen disk had en cassettes zijn een stuk goedko- 
per dan diskettes. Het is natuurlijk sowieso verstandig om van 
waardevolle programma’s een kopie op cassette te maken. Als je 
alles alleen op disk hebt staan en er gaat eens iets mis ……….- 
Verder word je als diskgebruiker regelmatig gevraagd voor een 
collega-Atom-bezitter zonder diskdrive programma’s op te nemen 
op cassette.Het meest sprekende voorbeeld hiervan is natuurlijk 
de beheerder van het programma-archief. 

Om het kopiëren van programma’s van diskette naar cassette te 
vergemakkelijken zijn er al diverse programma’s in omloop, maar 
deze werken geen van alle ècht lekker. Dergelijke programma’s 
verlopen ongeveer als volgtsvoer de filenaam van de te kopiëren 
file in,waarna deze van disk wordt geladen; zet dan je recorder 
op opname,druk op een toets en wacht totdat de file gesaved is. 
Na afloop herhaalt zich dit hele proces. 

Dit heeft wel tot gevolg dat je steeds moet wachten totdat de 
file gesaved is voordat je een volgende file kunt kopiëren. Op 
zo'n manier ben je nog steeds veel te lang bezig met het maken 
van een kopie op cassette, met als gevolg dat je dit zoveel mo 
gelijk probeert te vermijden. 

Helaas bieden dergelijke kopiëerprogramma's geen mogelijkheid 
om een andere, langere filenaam voor de kopie op cassette op te 
geven. Ook gaat het kopiëren geregeld verkeerd, doordat alle 
files op dezelfde adressen worden ingeladen als van waaruit ze 
gesaved zijn. Dus een toolkit op #AXXX wordt dáár ingeladen,ook 
al heeft het kopiëerpragramma FCOS uit de Josbox nodig. 


Zoals U wel ziet werkt dit alles verre van ideaal en daarom ben 
ik, samen met Will Verhoeven ( totdat hij op stage naar Amerika 
ging ), aan de slag gegaan om een goed kopiëerprogramma van 
diskette naar cassette te schrijven. Dit kopiberprogramma heeft 
de naam BACKUP gekregen,omdat je er erg gemakkelijk een backup 
kopie van een diskette op een cassette kunt maken. 

Backup laat U de catalogue zien,en stelt U in staat de gewenste 
files op te geven, namen te veranderen, gegevens over een file 
op te vragen, enz. Daarna kunt U opgeven of de files op 1200 of 
ap 3600 baud moeten worden gesaved,en of er een overzicht van de 
inhoud van de cassette op de printer moet worden afgedrukt. Dan 
weet Backup genoeg en kunt U Uw tijd nuttigter) gaan besteden. 
Ondertussen zal Backup geheel zelfstandig, dus zonder tussen— 
komst van wie dan ook, de opgegeven files één voor één van disk 
laden en op cassette saven. Zijn alle files gesaved, dan geeft 
Eackup een geluidssignaal en kunt U de recorder stoppen. Klaar 
met kopiëren: Het programma werkt erg gebruikersvriendelijk en 
is verfraaid met een grafische titelpagina. 
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Dan zal ik nu stap voor stap het werken met Backup toelichten. 
Laten we aannemen da. U Backup op Uw disk-utility-schijf heeft 
staan.Deze steekt U in drive OQ. Met het commando XBACKUP worden 
Backup en een aantal andere files geladen ( hierover straks 
meer). Backup zal U eerst een grafische titelpagina laten zien, 
waarvan U hieronder een afdruk ziet. Deze afdruk is in de 
breedte uitgerekt; dit komt door de gebruikte printer. Op het 
beeldscherm is het plaatje dus smaller. In dit plaatje heb ik 
geprobeerd weer te geven dat Backup de schakel is tussen het 
diskgeweld (links) en de oude,trouwe cassetterecorder (rechts). 













sk TO TAPE 


NnAtD BOERS 





Heeft U lang genoeg van dit plaatje genoten, dan drukt U op de 
spatiebalk. De titelpagina zal dan overvloeien in onderstaand 
scherm met een beknopte uitleg over het gebruik van Backup. 


stk BACKUP DIEK TO TAPE sok 





This Frosratn will Cors Files Prom disk 
to tare. Vau will see the Gataloswe in 
alrhäbetical order. Use the cursar-keus 
to Faint to the Files to be saved. 

Ba duins this in a certain order, sou can 
SsFecifg the order in which the Files are 
saved om tare. 








Ing. „ellis, commandkess are available: 
ops Pite with same Name, 





8 Eery Pile and chanse n 

GeLere: Delete File From backur-aveve. 

I Print inFormation about File. 

a Quit and save the Files on tare. 
An imverted « in Front af the Filename 
indicates that the File will be saved on 
tare, 


Insert the disk to be coried in a drive. 
and enter ië's drive-nvinber (8-31:? … 


Nu steekt U de te kopiëren diskette in een drive. Als U 1 drive 
bezit, valt er weinig te kiezen; bent U de gelukkige bezitter 
van 2 drives, dan kan de te kopiëren diskette heel goed in de 
tweede drive. Typ nu het nummer van de drive in die die 
diskette bevat. Dit moet liggen tussen © en 3. 
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Hierna geeft Backup de melding: 

PLEASE WAIT... 

Er wordt nu het een en ander geassembleerd, de catalogue van de 
nieuwe diskette gelezentals de schijf leeg is wordt dit gemeld) 
en alfabetisch gesorteerd, Is Backup hiermee klaar, dan zal de 
catalogue in 3 kolommen op het beeldscherm verschijnen. Hier- 
ander ziet U een voorbeeld van hae het scherm er dan uitziet: 






(BATOMMAN :BABIES _:CENTIPE 
:EDIT&4 _:FOURIER :GALAXIA 
:JOSBOX __:MISBASE _:PART 2 
CHARME B:ASTRORI B:SDRAWSR sOoD 
: SNAPPER G:3D-PLOT comerst 
15 


PLEASE MAKE YOUR CHOICE. 
VALID KEYS ARE: 
CURSOR-KEYS, COPY, DELETE, 
I(NFO), CHANGE) AND Q(UIT). 





Backup drukt allte filenamen als volgt af: 

qualifier, *:”, filenaam. 

De lijst is op qualifier gesorteerd en de files met dezelfde 
qualifier zijn ook alfabetisch gesorteerd. De onderste 4 regels 
van het scherm vormen het mededelingenveld. Hierin komen alter 
lei meldingen, vragen en kunt U Uw antwoorden intypen. Op de : 
van de eerste filenaam ziet U een knipperende cursor. M.b.v. de 
cursortoetsen en de REPT-toets kunt U de cursor over de file 
namen heen bewegen. Zet U de cursor 1 positie naar rechts, dan 
staat die nu op de : van de tweede filenaam. Zo kun je alle 4 
richtingen op bewegen.Als je in de rechterkolom staat en je zet 
de cursor 1 positie naar rechts, dan kom je 1 positie lager in 
de linkerkolom terecht. Dit werkt dus precies net zo als we dat 
van de cursortoetsen gewend zijn.De cursor staat altijd op de : 
voor een filenaam. Het is niet mogelijk om buiten de dubbele 
punten te komen, Dus als je op de onderste regel met filenamen 
staat, kun je niet verder naar beneden. 

We zetten de cursor in de goede volgorde op de files die we op 
cassette willen zetten. Als de cursor zich in het bovenste deel 
van het scherm bevindt, hebben we de volgende commandotoetsen 
tot onze beschikking: 


COPY : Kopiëer deze file met dezelfde naam als op schijf. 
In het mededelingenveld verschijnt bijv. de melding: 
R: SNAPPER WILL RE SAVED. 
De : voor de filenaam zal veranderen in een gefnver- 
teerd sterretje als indicatie dat de file zal worden 
gesaved. Als de file al zou worden gesaved (dus als er 
een geïnverteerd sterretje voor staat), verschijnt de 
melding: ALREADY IN BACKIJP-OUEUEÊ , 
Dit om te voorkomen dat dezelfde file twee keer zou 
worden gesaved. 
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DELETE 


Als de file te lang is om an te worden geladen (hierop 
kom ik later nog terug), verschijnt de melding: (Als 
voorbeeld heb ik SDRAWSR (eSUPERDRAW-source) genomen.) 
E: SDRAWSR IS TOO LONG TO BACKUP. 

Backup weigert dan deze file te kopiëren; dit zul je 
later zelf met de hand moeten doen, 


Kopièer file met een andere naam (CHANGE).Laten we als 
vaorbeeld ASTROEI nemen. 

In het mededelingenveld verschijnt de melding: 

PLEASE ENTER NEW FILENAME FOR: 

BR: ASTROBI 

Pennen rene ef 

Nu kunnen we een andere naam voor ASTROBI invoeren,dus 
bijv. ASTROBIRDS . Als we bij nader inzien de filenaam 
toch ongewijzigd wilten laten, geven we een <RETURN>. 
In bet mededelingenveld verschijnt dan de melding: 
WARNING — FILENAME UNCHANGED. 

Als we een naam langer dan 13 karakters invoeren,wordt 
die nieuwe filenaam afgebroken en verschijnt de mel- 
ding: WARNING — FILENAME CUT OFF. 

Bij het ìnvoeren van de fìilenaam zijn de cursortoetsen 
en CTRL uitgeschakeld om narigheid te voorkomen. 
Verder lijkt het Cihange)-commando veel op het COPY- 
commando; zie de uitleg daarvan. 


Als we met de toets COPY of C(=Change) een file ter 
kopiërìng hebben opgegeven, maar bij nader inzien wil= 
len we die file toch niet kopiëren, dan kunnen we met 
DELETE dit weer ongedaan maken.Het geïnverteerde ster- 
ratje verandert weer ìn een : en in het mededelingen- 
veld verschijnt bijv. de melding: 

RB: SNAPPER DELETED FROM BACKUP 

QUEUE . 


Als we DELETE geduiken bij een file die (nog) niet 
wordt gesaved, (dus waar een : vaar staat), verschijnt 
de melding: NOTHING TO DELETE. 


Print informatie over de huidige file (INFO). In het 
mededelingenveld worden de filenaam en de begin-‚eind=- 
en executie-adressen van de file afgedrukt. Als voor- 
beeld weer ASTROBI: 

INFORMATION ABOUT THIS FILE: 

FILENAME BEGIN END EXEC. 

B: ASTROBI 2900 SCOO CEB6 


Als deze file op cassette zal worden gesaved, staat 
daaronder de naam die de file op cassette zal krijgen: 
WILL BE SAVED AS: ASTROBIRDS 

Hier staat dus dezelfde tìlenaam als op schijf, of een 
nieuwe naam die U met Cthange) heeft opgegeven.Als bij 
Change) de naam wordt afgebroken,zie je hier de afge- 
broken filenaam staan. 

Als de file te lang ìs om in te laden { hier kom ik 
later nog op terug), wordt dit gemeld met: 

TME FILE IS TOO LONG TO BACKUP. 


58 | ACORN NIEUWS FBREKUP | RONA: BOER: 

» QUIT en save de files op cassette. Als we alle files 
die we willen kopiëren hebben opgegeven in de goede 
volgorde en evt. de naam hebben veranderd, dan geven 
we het Gluit)-commando. Er wordt gevraagd of U er echt 
zeker van bent dat U klaar bent en dat de files kunnen 
worden gesaved: 

QUIT: ARE YOU SURE CY/NI? 

Nu dient U met "Y" of met ’N’ te antwoorden ( andere 
toetsen worden genegeerd). Typt U °N* in, dan gebeurt 
er verder niets; Bij ’Y'wordt dit gedeelte verlaten en 
gaat Backup de files saven, na eerst nog een paar vra- 
gen te hebben gesteld. 





Als de uitvoering van een commando beëindigd is, gaat de cursor 
waer op dezelfde file staan knipperen als waar hij stond. 

Dit geldt niet als je na Qluit) *Y* antwoerdt.In dat geval gaat 
Backup de files op cassette saven. U kunt de gewenste baudrate 
opgeven (300 of 1200 baud): 


NOW 1’M GOING TO SAVE THE FILES 
ON TAPE. 


SAVE AT 1200 OR 500 BAUD? 
ENTER [FJ] (FAST) OR [SJ] (SLOW): 


Nu moet U met een °F’ voor 1200 baud of met *S" voor 300 baud 
antwoorden. De files worden met korte pauzes tussen de blokken 
gesdved. 


Aansluitend vraagt Backup of er een overzicht van de inhoud van 
de cassette moet worden afgedrukt op de printer. Dit overzicht 
bestaat uit filenaam, begin-; eind- en executie=adressen: 

TAPE CATALOGUE ON PRINTERCY/N1? 

U dient met ’Y" of N° te antwoorden.Als U met "Y? antwoordt en 
U heeft geen printer of deze staat OFFLINE, dan zou de Atom 
bij PRINT $2 vastlopen.Om dit te voorkomen, test Backup de sta- 
tus van de printer. Als deze niet ON-LINE is, af als je Über 
haupt geen printer hebt, volgt de waarschuwing: 


WARNING — PRINTER NOT READY. 
SWITCH PRINTER TO ON-LINE, OR 
PRESS SPACE-BAR TU SUPPRESS 
CATALOGUE ON PRINTER. 


Nu moeten we de printer op ON-LINE zetten, of als we toch geen 
overzicht op de printer willen, op de spatiebalk drukken.Als we 
een van beide doen, gaat Backup weer verder. Op deze manier is 
het niet mogelijk de Atom plat te krijgen met PRINT $2 zonder 
aangesloten printer. 

Als Backup weet dat U een printer ON-LINE hebt staan, en dat U 
een overzicht op papier wilt, vraagt Backup om het invoeren van 
een kop boven dit overzicht: 


PLEASE ENTER CATALOGUE HEADING: ? 


Hier kun je dus kreten invoeren als: 
CASSETTE 5:SPELLETJES, 21-5-'B4 


[BACKUP | RONALD BDERS ACORN NIEUW 


De ingevoerde tekst wordt na 351 karakters afgekapt. Eventueel 
geett U alleen een <RETURN?, er wordt dan geen kop afgedrukt. 


Dan zal Backup U nu uitnodigen.om uw recorder op opname te zet 
ten en op de spatiebalk te drukken. Backup gaat de te kopiëren 
files inladen en op cassette zetten. Hierbij worden steeds de 
filenaam op schijf en de cassettenaam met begin-, eind=- en exe- 
cutie-adressen afgedrukt. Het overzicht op de printer ziet er 
bijv. als volgt uit: 





CASSETTE SPELLETJES, 21-5-*84 
SAVED AT 1200 BAUD: 

FILENAME BEGIN END EXEC, 
SNAPPER 2900 3COO CEB6 


ASTROBIRDS 2900 3COO CEB& 
MISSILE BASE S8COO 9800 9385 
PART 2 2900 3800 95BA 





Nu kunt U rustig wat anders gäan doen,totdat Backup een sirene 
achtig gebidssignaal laat horen. Nu zijn alle files gesaved en 
kunt U de recorder stoppen. Druk dan op de spatiebalk. 

Backup vraagt nu of U nog een diskette wilt kopikren: 

ANDTHER DISK TO BACKUP [Y/NJ? 

Wilt U dit niet, dan zal Backup afscheid van U nemen. In het 
andere geval moet U de nieuwe diskette in een drive steken en 
het overeenkomstige drive-nummer intypen: 

INSERT NEW DISK IN A DRIVE, AND 

ENTER IT’S DRIVE-NUMBER (0-5) 1? 


Nu zal Backup weer overnieuw beginnen, met het sorteren van de 
catalogue. 


Dan zal ík nu wat algemene zaken over het programma zelf ver- 
tellen. Het wordt zoals gezegd opgestart met #BACKUP ‚Nu wordt 
BACKUP ingeladen en gerund. Deze laadt dan zelf nog een aantal 
files in, t-w. PART-2 ( tweede deel van Backup ), WELCOME en 
EXPLAN. (de titel en uitlegpagina’s). Om het kopièren van al 
deze files te vergemakkelijken,heb ik een klein kopiêerpragram- 
maatje geschreven (BACKCOP),dat alle files in een keer inlaadt, 
om een nieuwe schijf in dezelfde drive vraagt en alle files 
daarop saved en ze ook nag even LOCKed. Dit start U op met 
XBACKCOP .Het kopiëert zichzelf ook op de nieuwe diskette. 
Backup is in twee delen opgesplitst (het eerste deel, BACKUP, 
bevat hoofdzakelijk assemblerroutines en is na runnen niet meer 
nodig) om zo meer plaats te hebben om de te kapiëren files in 
te laden. Deze worden vanaf #4000 ingeladen. Backup zoekt eerst 
uit hoeveel geheugen U hier heeft en geeft een melding als 
U een file wilt kopiëren die niet vanaf #4000 zou kunnen worden 
ifladen. Heeft U dus RAM tot #8000, dan kunt U files van 16 K 
kopiëren. Langere files kunt U niet met Backup kopiëren. Als U 
het gebied #6800-#?FFF op wrate-protect heeft staan, is de max- 
ipale lengte 12 K. Voor het gebruik van BACKCDP heeft U wel RAM 
nedig van W2JGD-#B000. 


[Pas 68 | ACORN NIEUWS | BACKUP RONALD BBERS | 


De exacte gegevens van deze files: 


FILENAAM BEGIN END 


BACKUP 4000 4FOO eerste deel Backup 
PART-2 2500 4000 tweede deel Backup 
WELCOME 8000 9800 grafische titelpagina 


EXPLAN, BaOG 9800 
BACKCOP 2200 2500 


uitlegpagina 
kopikerroutine 





Eackup gaat er van uit dat er ergens op de schakeikaart een 
Jaosbox zit. Om niet aan een vaste plaats hiervoor gebonden te 
zijn, gaat Backup de gehele schakelkaart langs op zoek naar een 
Josbox. Vindt hij er geen, dan wordt U verzocht deze alsnog te 
installeren: PLEASE INSTALL JOSBOX. 

Heeft U geen schakelkaart of een schakelkaart die niet via 
KBFFF schakelt, dan moet U zelf de Josbox met de hand inschake- 
len. 

Uit de Josbox worden een aantal statements en de COS-routines 
gebruikt. De files worden met korte tussenpauzes gesaved. 
BAEKCOP heeft uit de Josbox GRMOD en COPY nodig en zoekt deze 
net als BACKUP zelf op. 

Macht er om wat voor reden dar ook tijdens Backup egen fout op= 
treden, bijv. door een defecte diskette, wordt het programma 
verlaten met de melding: 


FATAL ERROR DETECTED, 
PROGRAM TERMINATED. 


U moet dan Backup apnieuw opstarten met &BACKUP. 


N.B.1: Eventuele schakelsoftware voor de schâkelkaart dient U 
uit te schakelen oaf in elk geval de Jasbox ’vast’ te 
zetten! 

N.E.2: Tijdens het gehele Backup programma is het niet verstan= 
dig om op de ESC-toets te drukken. Afblijven dus! 

N.B.3: U dient er zelf voor te zorgen dat voordat Backup gerund 
wordt, het zero page byte #FE zijn juiste waarde heeft 
revem. de uitvoer op de printer! 


Ik denk dat bijna elke diskgebruiker wel RAM heeft van #2000- 
#8000 en een Josbox paraat heeft in Eprom c.q. RAM op #AXXX 
heeft, zadat hij er één in kan laden vanaf diskette, en dus 
Backup kan gebruiken. 

Ik dacht dat ik aìle mogelijkheden van Backup nu verteld had: 
voor op- of aanmerkingen houd ik mij aanbevolen. 


Veel kopiëergemak toegewenst! 
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18 REM CIRCLE SOURCE-CODE 
28 REM DEZEROUTINE PLOT EEN CIRCEL IN CLEAR1/CLEAR4 
23 REM AANRDEP: CIRCLE 100,80, 40, 14 





4@ REM 188 = X COORDINAAT 
50 REM B = Y COORDINAAT 
EO REM 49 = STRAAL CIRCEL 
78 REM 14 = PLOT-TYPE 

88 DIMVVZ,LLS 

30 F.L=OTOSILLLEBFFEF IN. 








+GOSUB a 

119 P.$E:P=A:GDSUB a 

CIRCLE"; T=T+LENT 

VO/ZSENHEBIT? 1=VVDAESEIT IL RED T=TAE 
iT! 1=A 








178: VVS BRK 
188: VVB LDADA:STAHCEF EORDS3 STAKCF ; BNEVVL 

130: VVZ JSRHC2E1 

200:VV1 JSRHC7EB:LDAHTS, XFORAHGE, K3 BNEVVZILDYRCEILDARIS, X 
Z1OSTAR7E: YSLDAH24, X3 INCHCE 
220STAH77, Ys INCHCE s DECRCF 5 BNEVV 2 

230ISRHCZELS JSRHC7ERILDAEEE, X5 ORARGA, XI BNEVVSILDYHIS, X 
ZAULDA#24, Xs BNEVV 53 TVASSTA#7C 5 ANDOZ 5 STARSE 

Z2S0LDAIA 3 BITH7C: BNELLS 3 LDA#SA 5 CLC + ADCH75 5 STAH7E 
ZEBLDAESB: ADCH7 7: STAH77ILDAHSCHCLCHADCHTEI STAH7E 
270LDA#SD:ADCH7 O5 STAH7 3 

ZEG: LB LDA#SE:BEGLLS: LDADOISTA#7O: STAH7 E35 STAH74I STARTS 
TIALDABIE1SE2SSISTAHT1FLDADIELS/ZSEFSTAH7Z 

ZUO:LLi LDAR7GSSECISBEH743 STAHTOILDAH7AG TAXFSBCH7S 
S18STA#7AsLDA#7 Ss BPLLLE: INC#7B 

E20:LLE BCSLL23DECH7B 

EEOrLL 2 LDRA#733CLCHADCH7AF STAHTIILDAK7 43 TAYSADCH7B 
Z4OSTAH74:LDA#7E: BPLLL7 + DECH7 5 

358:LL7 BCCLLE: INCH75 

ZEBELLE CPXH7AGFENELLG3CPY#74; BELLS 

7@:LL4 LDA#7AICLC:ADCH7ESSTA#SALDAH7 BS ADCH77 
ZEOSTAHSBILDAK7 4: CLC: ADCH7E: STAHSC 
ZIOLDAH7S:ADCH7 Is STAHSD: JSRHFE7S 

&OO:LLS DECH71GBNELL 13 DECH7 23 BPLLL 15 JSRLLS 
A1OLDXORFF: TXS: INX:G STXR4 3 JMPHCSSS 

4Z@:LLS LDA#7EISTAHSA:LDAR77 + STARSB;LDAR78: STAKSC 
GEBLDAK7 35 STAHSDERTS 

440; RETURN 


LOREM FLASH 

20REM FRANS LE BLANC 

ZOREM FLASH (A): (B), (C) 

&OREM A=EURSORPLAATS (MAX. 511) 
SOREM B=REGELLENGTE (MAX. 22) 
EBREM C=AANTAL REGELS (MAX, 1E) 
70 DIMBBE;P. $21 

88 F‚N=BTOEFBEN=-1 iN. 

OP. $Z1:P=AIGOS. a 

189P. $6:P=AGIGOS. à 
FLASH“ 3 T=T+LENLT) 
BE/ISEN#EBIT 1 =EBEXZSEIT? 22400 T=T +2 
158 A=PiT!1=2A 

148 END 

15S4a:C::EBE 
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1EUISREC BBI JSRBBS: JSRBB4 
17BCMPAZ; BCSBB7 ; INX 
1EAJSRHC7EB: JSRBBS ; JSRBB4 

1 30BNEBB7 ; INX 
ZOOIJSRHC4E 1: JSRBBA ; BNEBB7 
218LDAID:STAG 

220:BE8 LDA#IESANDS#1Fs CLC 
2EDADCH1 7: CMPQIT s BCSBB7 
24BLDAK1E; ANDDHED 

250LSRA: LSRA:LSRAGLSRA: LSRA 
2EBASLHZSFASLH25FASLHEZS 
278CLCHADCH2S 5 ADCHIE 
280CMPAHI1 : BCSBB7 

290:BB1 LDYAO:JSRHFBE1GLDXHIE 
JOBLDAIKHED + STAFST 
31BLDAH1G; STAHS2 
SZALDARZS: BEG BB2s INCHSS 
S30:BB2 LDACHS2) , Ys EOROHED 
S4ABSTACHS2). Ys INY 
ESOCPYR175 BNEBB2 
SEBCLCIELDARS2 5 ADCAH2D: STARS 
37GBECCBBS5 INCHSS 

3E0:BB3 LDYSD:DEX: BNEBB2 
SIOFSRÉFET 1: BESBB1 + JMPHC5SB 
400: BB7 LDADLST; PHA: PHA 
4&18JMPCH202) 

420:BB4 DEXSLDA#4S, X 
43OORARTA, X; BNEBB7 ; LDAH2S, X 
A4GRTS 

450:BBS LDYS:DEY: 

4EO:BBE INY:LDACS) , Ys CMPO#20 
4TOBEGBBE: CMPS#2C:BNE BB7 
4&SBINYISTYSIRTS 

430F: RETURN 


18 REM INVERT SOURCE-CODE 

28 REM AANRDEP: INVERT 

58 DIMVV4:F, L=BTO4 5 VVLSKEFF iN. 

48 P.$215P=A;GOSUB a 

58 P.$6:P=AsGOSUB a 

58 ST="INVERT"5T=T+LEN(T) 

7® ?T=VVB/25EN#80; T7 i=VVDL2SEIT?2=HDIT=T+2 

88 A=P$T! 1=A 

38 END 

108 

118a:k 

120: VVOLDYASISTY#7D; LDAKBDAO : BERVVL 
15ORDLArBEEVV2:L DXBHEB: ROLA: BCCVVES LDXORS7 ; BNEVVS 
1481 VV2LDKERBS;ROLAS BCCUVSELDKOHB7T 5 ROLAF BCCVVSILDKAHES 
15 VESTX#7 1 

16 VALDACH7D) , YHEOROHFF 5 STACH7O) , Y5 IMY; BNEVV4 
170DEX5 CPXARBOs BPLYVSS JMPRCSSE 

188: VVILDAKEIDD, Ys EORDHEDs STAHSZOD, V 

19ÖLDAKELBD, Y+EDRIHSDs STAHELUG, Ys INY 5 BNEVVI 5 JMPHCSSE 
200: RETURN 

2109=8;P. SE" "LENGTE "P-B" BYTES" "ZEROPAGE #78-W71"' 
„ “LINKADRES #"&VVO' +0=6 
TEBEND 
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18 REM INFO SOURCE-CODE 

28 REM AANROEP: INFG 

ZB DIMVVB:F, L=BTO1 5 VILEHFFF iN. 

48 P.$Z15 GOSUBR a 

58 P.$E:P=AGGOSUB a 

EB ST="INFO"s T=T+LENCT) 

70 ?T=VVO/25ENHEUI TI LEVVAALSCIT? z=EDi TTE 
E@ A=P5T!1=A 





38 END 

108arf 

it@:VVBLDAKE; CMPOÉ 5 BEQVVA 3 BRK 

128: VVIJSRHF7DIs Hs EP="BLOCK? "iP=P+752PekERsPePtts 


128LDAKBEGD;LSRA; LSRA: LSRAG ANDOHI ; EOROHB 
140JSRKFEDB; JSRHFFED 

1SOJSRHF7D1; 1: $/ TOP z #"Pep+Bi?P=kEASP=P+1G CE 
1EOLDAKE + JSRKFBOZ ; LDAKD ; JSRHFEDL:i JSRHFFED 
170JSR#F7DI; Ai & PAGE : #";P=P+8;?P=#ERsPeP+1GC 
18BLDAR1 2: JSRHFEG25LDADD: JSRÈFEDZ 5 JSRHF FED 
190JSRRF7DIG AI SP="SIZE 5 “3PeP+73 2P=HERiP=P+1J CL 
ZO0LDARSZ1 5 STARTD:LDADGS STAREZ13 LDARD: STAHIE 
21095EC:HLDAHE: SBOH 2; STAHZSs JSRHCSES 
220JSRHFTDIs Ai $P=" BYTES" sP=P+6r IP=HENIP=PHIG CE 
ZE0LDAH7EISTAHEA1 5 JSRHFFED 3 JMPRCSSE 

2403: RETURN 


18 PROGRAM COPY 

28 REM HENK REINDERS 

28 REM COPIEERT VAN DRIVE @ NAAR DRIVE 1 

48 DIM LL4$FOR I=8 TO 4ssltI=-iiN, 

58 P,$2i:PzA;GOSUB a 

E@ P.,$6 ;P=AIGDSUB a 

79 $ST="TCOPY"T=T+LENCT) 

83 2T=LLB/ZSERHBBIT? 1=LLAA2SEIT ZED T=T+ 2 
8 AzP;T?1=A 




















182 END 
118a:C 
128:LLZEIJMP &CSSS \ TERUG NAAR INTERPRETER 
1ED:LLOIJSR #C4EA \ TEST EINDE STATEMENT 
140 JSR #E008 \ INIT. DOS 
158 JSR #EZ25 \ LAADT CATALOG @ 
168 LDY #2185 \ LAADT INDEX FILE NAAM 
170 STY #7F 
tEB:LLisLDY #7F 
198 JSR #E109 \ INDEX OP BEGIN FILENAAM 
200 STY #7F 
218 STY #34 \ LAADT ROUTINE WELKE FILE 
228 CPY A#FE \ TEST OP EINE FILENAMEN 
238 BEG LL2 
248 LDA 9#08 
250 STA #3C \ LAGE BYTE LAAD-ADRES 
STA #9E \ LAAD-ROUTINE ER IS EEN LAAD-ADRES 
LDA a#29 


STA #SD \ HOGE BYTE LAADT ADRES 
JSR #EGEF \ LAADT DE FILE 
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ae JSR 
Ka LDY 
528 LDX 
33G:LL EI LDR 
340 STA 
558 INY 
360 INX 
370 CPX 
388 BNE 
39B:LL4I LDA 
488 STA 
418 DEY 
420 DEX 
430 BNE 
448 ELC 
450 LDA 
4EB TAX 
478 ADE 
480 STA 
430 LDA 
520 TAY 
Ste ADC 
520 STA 
550 TXA 
548 STA 
556 TYAa 
568 STA 
570 LDA 
589 JSR 
530 JSR 
E88 JSR 
618 JSR 
E20 LDA 
558 STA 
548 LDA 
E50 STA 
EEG JSR 
670 JSR 
688 LDA 
658 JSR 
700 JSR 
718 JMP 
7201 


7358 RETURN 


#E226 \ TEST OP EINDE LADEN 

#7 7 

220 

“2008, Y 

#A5,X \ FILE-NAMEN IN DE ZEROPAGE 


a#8 

LLS 

#21097,Y 

#3B, X \ADRESSEN IN DEZEROPAGE 


LLá 
\ BEREKENING EINDADRES 
#IC 


#AB 
#A2 
3D 


#1 
#AZ 


#A0 


#A1 
S51 
#EGS7 
#E225 
#EELD 
E226 
a#0 
#3C \ LAGE BYTE START ADRES 
at29 

#D \ HOGE BYTE START ADRES 
#+EEBS \ SAVE DE FILE 

#E226 \ TEST EINDESAVEN 

ana 

#E437 \ DRIVE NUMMER 9 

#E223 \ LAADT CATALOG @ 

LL1 


INSTELLEN DRIVE 4 

LAADT CATALOG 1 

PAS CATRLOG AAN EN SAVE DEZE 
TEST OP SAVE CATALOG 


„ese 
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JOYSTICK -AANPASSINGEN 


Wanmzer se twee Svysticks aan de ATOM sehangen hebt ontstaat er het” 
volgende probtee 








Doordat de joysticks op tijn 8 en 1 van IC ZB (7645) aansesloten 
zitten Kan er: wanneer tegetiskertijd dezelfde bewzssinsen gemaakt 
warden: stuitins ontstaan tussen de twee lijnen, (zie ook de 


toetsenbord-matrix in het schema). Om dit te voorkomen moet je in 
de aanstuitdraden van de joysticks (BEHALVE DE MASSADRADEN) bv. in 


de zomeuter divdes soideren. en wel zo dat er Wal sisnaten van de 
Joystick naar de computer Ssestuurd Kunnen worden, maar niet 
andersom. (Deze oPpiossins Kwam helemaal uit betsie!) Om dit te 


testen staan hieronder wat aanpassingen voor enkele spelprosrammas: 
Welke zander deze aanpassSins bijna niet te spelen ziijn. 


SHOOTOUT: WIIBA=HFD PHITCZEHOE VHSEOF=EFD IHEELT HLO 
EELB=ÊFD 2HEEBET=RFD PHEE2F ROI 
IMZETEERFL 2 2WEBIF=R0L REBA D RDA 
INZEGESREI IRTBGESRDI 





DOGFIGHT: ?#57D1=#00 ?H57DA=HDL MITEL HID RT7EC=HOL 
I57F7=#DI MWI7FI=H2D MWE7FG=HEB 257 SHEER 
2HTEDI=HID IHEEGI=HDE PHTEID=HOA HIE2S=HO2 
IE3EZC=H2D  HES2D=EEDY #SB MHTETG=HLO 
IWSBIT=HLD 7E EB 24E SB ?HI0ID=808 
I38IG=H20 PHEBII=HED 7HIOIZEHIB IHTE1GERLA 





P=#ZBDO: CLDAAHFO; STAHBODD ; LDAHEBOL :RTS 


Dan voist hieronder nos een prosrammatie wat strinss met 
Joystickbesturing over het scherm beweest, Om seinverteerde strings 
te verkrijgen moet je de de action-knop induwen en tegetijkertijd 


de knuppel naar voren duwen. 


10 GR. 

20 P. siz 

58 DIM A20 

48 IN. SA 

SB P,$iZ Tree N 
EB IRE1=D;P. $A 


EB IF ?#BUAIEE=D GOS. a 
S8 IF ?#B0O1E2=0 GOS. b 
108 IF ?#EODIE4=B GOS. Cc 
119 IF 7#BAOIEIE=G GOS. d 
129 IF?#BBDIE1=D GOS, e 
118 IF ?#BDA1:#EE=D GOS. f 
168 U. 

152aG0S. s 

169 P.“ "s8 

17) P. $asas;R. 
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278 P, &11$A:R. 

28AeP. $5OSA:R. 

290eF. L=OTACL. A1) 

300 A?I=A? 1: RD 

318 N. 

324 GOS, s 

330 P. $A 

3460 R. 

550eF, I=t TOL. A) :P‚, SBiN. 5R, 
3EONF. I=1TDEL. AGP," “iN, iR. 





Voor desene onder ons die nos seen JOSboK bezitten kan resetnr. 10 
verwijdert worden. 
Hieronder noe een aanpassine voor het spet SPACE PANIC van A &F 
software: 

YHZEBI=KFD PHZEIAHFD ULEZTRFO MWLEII=HFO MSLSD=HED 

P=#2EB8; LEORDÉFD 

P=$2EOF : CEDRARF7 

P=$2E1B: CEOROREF 

P=#2E22; CEOROHFB 

Pa$2EZE; EEOROHFC 

P=2ESAGCEOROHFE 

Pa#34E4s CEDROHFG 

Voor degene die zich: net als iK, seerserd hebben aan de traasheid 
van het spet FROGGER volst hier nos een tio: 

2#355I=#4 0 

REGEL 92608, d5?#34=A. (C?HI4) -10) 57 8IZ=2IP, &767ILI. HISETIG. f 


mmm 
TOT 7 


10 PROGRAM WAVE 

20 REM JEROEN BOERS 

38 CLEAR4:B=19250=0 

40 A=5G: D=: KV=E 

SO “O=PI/E2:MDVE-A, D 

68 FOR I=-A TO 256 STEP 2 
78 AVV 

BB VY=D+XCASINKV) 

9@ DRAWI,Y 

198 DRAWCI+A),B;MOVEI, Y 
11@ DRAWCI+A), OFMOVEI, Y 
128 NEXT 

1358 END 
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1DREM KNIPPERENDE CURSOR 
2OREM === 
ZSOREM MET 
GUREM AUTOREPEAT 
SOREN =: = 
EOREM EN 

7OREM PIEPER 
SDREM = 
SOREM SOURCE FEI4-FECE 

1O2REM M, B.V, SOURCEMAKER 

11GREM VAN ARIE MARCHALL 

1EOREM DOOR: HUBERT VOGTEN 

120J=22sDIMLLJ: EF, T=BTOJSLLIERFFE EN. :DIMAA:O=0 
14DP, $t wk UTOEK HDI Eper tn: 
150P,°' "CODE KOMT VAN #"&HFERAIP. #"RHFECS 

152IN.'* "GEEF STARTADRES BV #2C30 “ZiIF?1E=2/25656G. 150 
178IN. "PRINTER J/N"$A 

18GLLI=kEZILLE= AsLLZ=#20B: LL iS=#EODZ ILL 1E=RCHSB 
190LL17/=FBEAFLLIG=HFDAAILLIJ=HFEEEILL2O=HFET 1 FLL2I=HFECS 

Z8BLL 22=KFEES 

219P, $21;F. I=iTOEiP=ZiIFI=iP. SE3IFIA=74P. 2 

C 

OLDASLLOAZSEISTALLE:LDADLLD/Z5EISTALLES JMPLLIEG 

B: LLOPHPECLD: STEHE4SSTYHESILDYOHOD 

2SG:LL4LDXAHOO 

ZEBELLSINXsCPXAHIEs BNELL Ss LDALL1SsEORDHDA4 

270STALLISGINYiICPYO#EES BNELL 4: LDAO#DD 

USTA#BO 

@: LLEBITLUISSBVELLIG INEHRO ; LDASBD s CHPAHZD 

ZOBBEGLL7 5 JSRLL195 JSRLL2D; CPY#B1:BEGLLE 

S18BCCLLE 

Z20:LL7JSRLLEO:STY#B1 

EIG:LLSIFSRLLI7 

ZAG: LLL DYHEDILDACHDE) , Y+ STAHBT 

SS0:LLiOLDAAHOD ; STAHBE 

ZEB:LLE 1 INCHEZSLDAHRZICMPORFF ; BEGLL ISG JISRLLEO 

Z7BECCLLIEILDADHFF ; STA#B13 JMPLLIL 

ZED:LLIZLDYHEDILDA(HDE): Ys CMPHBZ:BEGLL 145 JSRLLIS 

EIOJMPLLi4 

AOB: LLIELDYHEDIJSRLLIES JMPLL1OG 

41O:LL14JSRLLE0$ BESLUI TYAFLDXAR17s JSRLL21 

G2OLDALL22, X5 STAHEZILDAAHFD STAHESS TYA 


4EOJMPCLLID 
GUBIIN. ;P." "CODE VAN "8&Z" TOT “&P''"SZ"STARTEN MET LIND #"&Z' GE, 

































Het Prosramma maakt gebruik van de volgende zero-pase adressen: 
BO. #B1, BEZ, #B4. Door het prooramma worden de lees-karakter 
vectoren oe #20A en B veranderd. 

Bij ae eerstvoisernde break Worden ze weer op hun normale waarde 
terussezet. Na het aanlinken van de code verschijnt een Knieperende 
cursor. ledere toetsaanslas besint met een kort pieptoontje, Als 
toets langer dan „en halve seconde blijft insedrukt treedt 
bovendien de autarepeat in werking. 

Hij het debuesen van een prosramma is de copy-toets in combinatie 
met de repaat=-taoets =ra hafndig, 
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MINIAS 


Dit vermhaat roert Waarschijnlijk direkt al vele vrasen op, maar 
hopelijk worden ook de meeste van de vrasen direkt beantwoord, 
Een van de eerste vrasen d in de lezer (sa da, dat bent U ) 
opborrellen is: "Waarom een nieuwe assembter: die heb ik toch al? 
Het antwoord op deze vraas is makkelijk: “Deze mini-assembier is 
„en symbotische assembler”. Direkt daaree de vraas: “Wat is dat nu 
weer?“. In Acorn Nieuws 2 (mei 1984) seett Bram Poot het antwoord: 
“Een symbotische assenbter is een assembler waarbij de labels en 
andere variabelen mogen bestaan vit een naam van 1 of meer letters 
en/of cijfers te beginnen met een letter. Het is duidelijk dat zo'n 
assembler-prosramma heel betekenisvol kan zijn: ENTRY: LOOP, PORTB, 
CRLF, TEXTPTR zessen meer dan LO, P-B, #BOA1, HFFED, #12. Het 
gemis van deze faciliteit in de ATOM-assembler lijkt Klein: maar is 
dat bij lansere: insenikketde programma’s met veel interactie zeker 
niet.”, Even later Komt Bram zelf met de vraas: " Maar hoe komen we 
eraan?“ Tot voor kort moest deze vraas beantwoord worden met “We 
Schrijven er zelf een“. Dat is dan ook wat Bram sedaan heeft. Het 
prosramma van Bram is een zeer fraai stukie huisvlijt: waar 
duidelijk soed over is nasedacht, Het prosramma is zeer degelijk en 
biedt een aantal zeer interessante extra's die nos niet in de 
ATOM-assembter aanwezig waren. Enkele van de features zint 
symbolische tabels van praktisch onbeperkte tenste: binaire 
constanten: 18 zs. directives: karakter-ekpressies (CH'** vervansen 
door '*), Hiah en Low byte specificaties: OUT OF RANGE meidins aan 
het eind van de vertaling en er worden echte foutmeldingen seseven. 
Kortom een tien met een sriffel, Echter de zoen van de juffrouw 
moest Bram nos ontberen. Zijn assembler is namelijk niet mensbaar 
met BASIC en vult een halve EPROM op Axxx. 

(noot voor Bram: bovenstaande is riet vermeid om vervolsens in de 
arond te boren: maar omdat jou assembler zeker een eisen plaats 
verdient in de top-tien van uitstekende prosramma' s) 














De hier sepresenteerde MINI-assembler pakt de zaken anders aan. Hs 
laat al het werk over aan de normale RTOM-assembler totdat die er 
niets meer van snapt. Hierdoor is de MINI-assembler uitstekend 
mengbaar met BRSIC en neemt hij slechts de minimate hoeveelheid van 
Si2 Bytes RAM in bestas. Een voorwaarde is wel dat U de beschikkina 
heeft over P-CHARME, tets dat Bram in die tijd naa niet had. 
Uiteraard doet deze assembter zijn naam eer aan en de assembler is 
dus niet zo tsebreid als die van Bram. Toch is dit een zeer 
voltedise mini-assembler, die vanwege zijn kleine ienste uitstekend 
seschikt is om ersens op stot in de IEK-kaart te plaatsen. De vraas 
“Waarom een symbotische mini-assembler?” is hiermee dacht ik 
voldoende beantwoord. 





Uittes van de symbolische MINI-assembler 





Voordat ik met de uittes besin wit ik Henk Reinders nos even 
bedanken voor de hulP bij het pPprasrammeren van deze assembler. Bij 
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deze dus. 


Het sebruik van deze zssembler iS zo eenvoudis moselijk sehouden. 
Wei moet hier en daar rekening Worden gehouden met de beperkinsen 
die de ATOM-assembter votest aan de mini. 


Het definieren van labeis iS al net zo simeet als in de ATOM: 


18 PROGRAM VOORBEELD 

28 

28 P=t400AGPRINT $715GOSUR a 
48 P=$400A: PRINT $6:GOSUB a 
SO LINK START 

EB END 

78 

S0at 

SU: START:LDK ALO: 
109:LO0DPIJSR #FDLA:\ beltletie 
119 DEX:BNE LOOP; 
128: EINDIRTS 
1381 
148 RETURN 


De namen van de labels zijn hier Willekeurig: maar betekenisvol 
sekozen. Een label} moet altijd beainnen met een letter en moet 
gevoled Worden door minstens een letter of cijfer of door het teken 
sr 4 dat sebruikt kan worden om labels beter leesbaar te maken. 
Dus: PRINT'EEN'LETTER ipv. PRINTEENLÊETTER. Hier lest de ATOM ons 
echter enise beperkingen op: het tabel Moet vesinnen met twee 
verschilttende LETTERS (ivm. array's): maar niet met de letter A 
Landers gdenkt(?) de assembler dat het hier gaat om de accumulator> 
en mas ook niet besinnen met de naam van een reeds bestaande 
inteser of floatins-point functie. 

All de diepere achtersrand hierachter is dat de mini-assembler 
aties vevat als een (abet dat een error 23 veroorzaaxt: mits die 
error getreed tijdens het assembleren. Op dat moment wordt via 
P-CHARME insesrepen, Deze manier is 190% bedrijfszeker, maar soms 
lijkt het dat er iets mis saat. Meestal begint de labetnaam dan 
tarh met een bestaande functie, 

\NS 

Verkeerde labels zijn dus bvi 

EENTWEETJE twee selijke letters 














B' TEST besint niet met twee letters 

z ADRES besint met zen A 

“START begint niet met zen letter 

GETNAME begint met een bestaande functie 'GET' 
z VALUE begint met bestaande FP-functie "VAL" 


Kortom: even in de saten houden wat voor namen je Kiest, 
Ook iS het masgelijk Cm labels een vaste waarde te seven: 
RLF = #FFED 

:BELL = #FD1A 
Waarna JSR #FDIA seschreven mas worden als JSR BELL, hetseen veel 
overzichterlisker iS. In tesenstel!ìins tot de Bram-versie zijn hier 
gern VounAr-gedetfinteerde lahets: Jammer, maar Kort em bear iijebaar 
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voor mensen zonder symbolische assembler. 

Een in de assembler sedefinieerd ‘abel mas ook in het BASIC 
prosramma sebruikt worden: vandaar dat LINK START in bovenstaande 
voorbeeld OOK Werkt, 





Het sebruik van een niet-gedefinieerd tabel resulteert in een error 
157: LABEL NOT FOUND. En het dubbet definieren van namen siert uw 
scherm met ervor 251: NAME DECLARED TWICE. Error @ krijst v als de 
tabelnaam niet met een letter begint. Error 35 seeft aan dat zen 
bestaande tabel met namen (per ongeluk) door de sebruiker sewist is 
en tenslotte error 25 treed op ats er iets mis is met de „TA 
directive Cals ie probeerd tWee tabelien te maken of als het taae 
byte van het besinadres onselijk aan nut ist zie verderon), 


De mini is uitsebreid met zes ze. directives die de assembler 
vertel! iets speciaals te doen, Êlie directives bestaan uit 5 
tekens (even lans als zen noftmale mmemonic) en besinnen altijd met 
sen punt. Vaak zijn de letters selijk aan de eerste twes van de 
Bram-versie: 








„BY (byte)moet sevolad worden door 1 ten niet meer dan 1) 
expressie en zet het tage byte daarvan in het geheugen cp de 
Piaats waar de assembler Sebleven was met vertalen (=P), 

‚WO (word)doet het zelfde &ls „BY, maar ny twee bytes: lage byte 
eerst: sevolad door hose byte, 

.DB (Doubte Byte) zelfde als .WO maar hoge byte eerst en dan 
bas het tase byte 

„BA (Besin Assembty) moet sevolad worden door een expressie en 
is hetzelfde als A:P=227;C 

«TA (tabte) wordt sevolad door een eKpressie waarvan het lass byte 
nut is en kan sebruikt worden om de tabet met labels op 
bepaald adres neer te zetten. vb «TA #5599 laat de tabel 
besinnen op #520D. Deze directive moet sebruikt worden 
voordat @r ook maar 1 naam in de tabel is Ssezet,. Als TA 
wordt weeselaten Komt de tabel op #8237. Door het gebruik 
van PROGRAM wordt een eventueel bestaande tabel verseten, 

„AS (ASCII) de tussen auotes (') staande strine wordt vanaf 
de waarde van P in net seheusen sezet en P wordt met de 
lenste van die string opsehoosd. 





Uiteraard moeten we P-CHARME eenmalis na het aanzetten van de 
computer nos wel Wijstmtaken dat deze mini OOK Wil profiteren van de 
moselijkheden die P-CHARME biedt. Hiertoe Kunnen bv. in het INIT 
proaramta uit Acorn Nieuws Z (mei 1984, pas 57} de volgende resets 
worden opsenomen: 

35 '#JEE=start adres mini 

36 &EFD=#BE 
Wet moeten je er voor zorsen dat het lase byte van het start adres 





gelijk aan nul is. Indien je om een of andere reden de mini uit het 
seheusen haalt moet ie eerst ?#3FB getijk aan nut maken, anders 
loopt de rzomeuter in puin (vandaar dat de mini veet veitiser oP 


Slot in de IEK-kaart staat). 


Ín de voltsende Acorn nieuws misschien Wat uitbreidingen in de vorm 
van enkele statements: waaronder: SVMBOLS (drukt de tabet van de 
Jabels at), CONST idefinieert canstanten binnen een basic 
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prosramma) en TABLE 


(maakt eer 
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nieuwe tabet met voorsedefinieerde 


symbolen). Ook is het denkbaar dat er extra directives komen of bv. 


high byte: IOW byte specificatie 


Dit alles maakt de assembler 


echter atteen maar sroter „n daarmee verdwijnt het voordeel van 
deze assembler, Daarom is het nos maar zeer de vraas of deze 


vitbr 





at geprogrammeerd, maar dat zest 


mini vit te breiden tot eer 


dinsen serealiseerd WwOrden (sommise hebben wij … Henk en iks 
nes niets). Ook is het moselijk de 
CMOS-assembler voor de 65C02, Zelfs 


zijn eventueel macro's te prasrammeren met uiteraard lokale CHIE) 
labels. Wie weet wat de toekomst brenot? 


PROGRAM MINI ASSEMBLER 


C=E:REM AANTAL DIRECTIVES 


PROC ENTER(S, A) 


A?TT 
A?TT2=CDDA-1) ESB 
PEND 





DIM LLC4E), DDC18), TT CLO) 
FOR I=2 TO 46 
LLCI)=939 
NEXT 
FOR I=® TO 10 
DDI) =999I TT 1) =993 
NEXT 
DIM 505) 
2HZFE=OFREM ERROR-JMP OFF 
P=#75003 PRINT $21:GOSUB a 
IF B THEN PRINT $6 
P=#7502: GOSUB asPRINT $6 
M#ZEE=D: 2RIEF =LLB/ 256 
ZF Bek 
END 





280 

298ar 

Z30\p-cnarme errar 
Zi8:LLOs PLA: PLA: TAY: PLA 

STA #9B:LDX HA: 

Z58\push zero-pase 
E4O:LL1FLDA #91, X5 PHAF INK 
Z50CPX A7IRNE LLI 

2EO\test assembter/basic 
Z7OLDA #IFF:CMP O#FZIENE LLZ 
ZEBLDA HIFESCMP OHAEFBEG LLO: 
Z90\basie errar 

G08:L TY #2OICPY A29 
GIGBNE LLZILDA #ZEFF:BPL LLS 
GEBISR LL ESIBCC LL11G:BCS LL ZS 








B=(2#HOD1) =125) REM SHIFT? 


FRANS. 


AITTB= LPS) EHIF+IJHBINLCCSI ID EEF /A) 
S?i+1) Eh (522 ERTE 


433\error 208 
&&UELL4ELDK C+ 
4SBsLLS;LDA TTO-1: X:CMP #69 
GEBENE LLE3LDA TT1-i,X 
G7ECMP #GAIBEG LLB: 
GEB:LLEIDEX;ENE LLSs 
4SD3LL7ESTY HOT 
50O\back to s-charme 
S1O:LL5IJSR HADCEITXS: 
S20JMP #AC5Z5 
538: LLE:LDA ADDB/ 25E: PHA 
S4BLDA TT2-1, Xs PHAFRTS: 
S53\assenbler error 
SEB:LLSICPY A2085BEG LL4 
570CPY BTEIBER LLIS;CPY @29 
SEDENE LL7; 
SW\error 23 
EOB:LLIDIJSR LLZ4FBEE LLii 
E1IGENE LL2+15JSR LLI9sLDX HS 
E28LDA #OEIJSR LLEEFBNE LU15: 
ESB: LLIEsINYSLDA CHILD, Ys INY 
E4BCMP KIESBNE LL12ILDA (WII), Y 
ESBCMP #OSIBEG LL144 
EEB:LL12ELDA CWII), Yr 
E7B:LLIJSLDX #B4IJSR #CITC 
ESBINY:LDA (#31), YISTA #24, X 

| ESOJMP HABE2: 

‘ 7OB:LLIGIJMP #CCIE: 
71®\error 76 

’ PZO:LLISHDEC WOTIDEC #3 
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73BJSR LL243BCC LLIEGBNE LL2+1 
740JSR LL1S:BEC LLS: 
7SO:LLIESSTY HIJIJSR #F2I1 
76BCMP BHID5BEG LL17;DEC #25 
77BLDX #3E1FLDA #S4CIBNE LiiSs 
TEO:LLL7IJSR LLASITKAILDK #165 
7S0:LL18sLDY #95: JSR LLIS 
800LDY #I3ILDA (#91), V 
B1IGCMP SHEDIBCS LL4G+1 
B28ADC AHZOISTA (HIL), Y 
EIOJSR KADCEITKSIJMP HF ZBE 
S4B\testcharacter 
BSO:LLS2ILDA (HBS): Y5JSR HDA 
SEBBCS LLZ6:CMP D#274BEG LLZ4S 
87@\testtetter 
SSO:sLLTELDA (HOT), Y:CLC 
BSBADC SHASICMP DHEG 

SDE: LLEAILDA (#05), YI RTS: 
Sl@\store value 
320:LLSBs INYs 

EB:LLEIISTR CHILI), Yr TXAFINY 

S4BSTA (#91), YIRTS; 

35Q\store strina 
SEBrLLA2IENVIJSR HCECS 
S70JSR #FZGB; 

SSB:LLAGILDY AP; 

IO: L4SILDA #140, Y;CMP AHGD 
1DPDBEG LL41GSTA (H523, Y 
1O18INC #3515BNE P+54 INC #34C 
\BZBINYIBNE LL4S3 








129521 

1949 TTO=PITTI=TTA+CHTT2= TTE 
1058 BY“sENTERCS, 0) 
1058 ‚ WO" GENTERCS, 1) 
1878 5 „DB"GENTER(S, 2) 
1080 $ BA" ;ENTER(S, 5) 
1090 $ ENTER(S, 4) 
1100 s ENTER(S, 5) 
1118 P=P+C#3 

11280 

1130\directives 

1140\. by 

1158: DDB 

1150. wo 


1170:DD1;STX #ABIJSR LL4S 
1180JMP LL46 

1150\. db 

1285:DD2:DEXSSTX #UDIJSR LLS 
1210TXAILDX #16: 
1220:LL465STA #BEISTK #67 
1230JSR KADCEITXS;JSR #FSED 
1Z4OIMP #FAD7 3 

1258\, ba 

1258:DDE;LDA PHLOISTA #16 
AZ7BINC #SAIIJSR HCAZCI IMP LLG1 5 


1282\. ta 

1238:DD4s ISR LLAS:BNE DD1+1 
1338LDA #28FF:BMI LL4D 

{31GJSR LL21: BCS Liáis 
1320:144BICPX 3SIBNE DD1+1 
153B:LL415 JSR #ADCE: TKG 
1348JMP #FS6D: 

1358\. as 

156@:DDS5:JSR HADGFICMP DEZ2 
1579BEG LL4ZIJMP #CTID: 
13BD\searcn 

15SBitL24sLDA H2BFFGBMI LLES 
14OBLDX AWB2IJSR LL21s 
I&1B:LL25ILDY AOISTY #31 
1428LDA #IEISTA #IZILDA CHSIJ, Y 
1430CMP DHES:BNE LL375 INY#RSL A 
I&4GCMP (#31), Y:BNE LLS? 
14658:L 265 INYIJSR LL3S:DEYs 
IAEBsLL 275 INYsLDA (#31), Y 
1478BMI LL3BICMP (HOT), Y 
1ABBBEG LL27 

14SBsLLEBs INYsLDA (#91), Y 
1500BPL LL28; 

1518:Lt295INYs INY:ENE LL26% 
1520: LIE: CMP AHSBIBEN LLI7 
1530JSR LLE2:BCS LL29;STY HOE: 
1540:LL515 RTS; 

1558\store name 

1568:LL195 FSR LLSTIBET LLSI 4 
157&: LEE STA CHS1) Ys INY 
1580JSR LL32:BCS LL203STY #05 
1590LDA AHBIGSTA CHI1), Ys INY 
1EO0BNE LL25+ 

1E18\new table 

15207 LL 2140RA BEBDISTA H2OFF 
1530STX #33ISTX #I2: 
164G:LL22iLDY SGISTY #31 
1ESOLDA BHESILDX ARCE: 
165B:LL2II JSR LLJSSINYsLDA DHED 
1670STA (#S1),YrBMI LLIES 
158@\init v-resister 
169B:LLISFTYAFCLCFADT #31 
1708BCC P+4FINC #IZISECHSRC HOF 
1718STA #ILFBES P+4IDEC #32 
LLSS:LDY #05: 
L3735EC:RTS: 

i740\set expression 
175@:LL45IJSR #C7BBIDEC #04 
178BLDX #25ILDA HIEIRTSS 

17721 

1788 RETURN 

1798 BY FRANS & HENK 





P-CHARME VERSIE 17E VEREIST 


[MINIAS FRANS VAN HOESEL ACORN NIEUWS |PAG. 73 


Links zen BASIC peroeramma en rechts de vitvoer na RUN. Let op de 
manier waarop .WO en DB de bytes in het seheusen zetten. Bovendien 
wordt de strins bij „AS niet als losse bytes afsedrukt omdat bij 
strinss lanser dan drie tekens de assembierlisting (die noa door de 
ATOM-assenbler wordt verzorsd) in de Swe loopt, 








18 PROGRAM ASS-TEST 40 SLOD „BA #5090 
40 SOD «TA #9403 
PRINT $21;GOSUB a 9% 50LB zWRCH =HFEEFG 
48 PRINT $6 ;GOSUB à 100 5008 sPRTXT=#F7DL 
58 LINK STERRETJES 110 5203 :STAR =#ZA 
EB END 119 5029 
70 120 5209 : STERRETJES 
Sal. BA #5000:. TA #9420 170 5020 AZ 20 LDX 52 
SDEWRÈH =HFFFA 120 5202 
190: PRTXT=#E7D1 158 5302 : LOOP 
119:STAR =k2Rs 150 5022 A9 2A LDA @STAR 
120:STERRETJES:LDX 252: 150 5D4 20 F4 FF JSR WRCH 
130: LOOP:LDA ASTARIJSR WRCH 140 5007 CA DEX 
140DEXSENE LODP 140 SOGE DU FE BNE LODP 
iSOJSR PRTXT 158 SABA 28 Di F7 JSR PRTXT 
160. BY #07;5. DB #OAGD 162 SUAD 67 „BY #97 
170. AS "OK"s, WD #OADD t1ED SOE OA AD ‚DE #ORAOD 
182NOP 178 SAIZ „AS "DK" 
1SORTS 178 5@12 OD ZA „WO #5A8D 
200 158 5914 EA NOP 
218 RETURN 190 5215 EO RTS 
Ene eee head 
OK 


‚ 


PS. Door op seschikte plaatsen etn #xtra puntkomma te zetten wordt 
de ass@atbler uitvwer veel mooier, 


eren 
mn 


De resin Deift heeft een one-liner Wedstrijd gehouden. De volsende 
3 “pekroonde inzendingen” treft U hierbij aan? 


Een Delfts seheim van Hans Admiraal: 
M=#80; !M=tEZEOADS IF, X=DTO10U0RSP. $L7IAR, A47 BEEM? CX/ DAG) IN, 


Priem sztatten van B tot oneindis behaive 2 van Gert Wols: 
Az=-15DODOC=1FA=A+EE EF, B=ZTOSGRAID=AAE CSCHSCNDIN, +U. C=1liP, AU. B 





Een dynamiek impressie van Erik Dukker: 
1FC. ;GR. 5 MOVES, Z3F. A=1TOEZES, 73 DRAWA, (B, C+B, C+B‚ O2 SN, +6, 1 


D= prijzen zijA inmiddeis achter de bar Uirgerei kt. 
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10 

20 

30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


REM SNELLEZEN 

REM TINY VERSCHUREN 

REM STRING MANIPULATIE 

REM A‚N.3-JRG.2-BLZ.23 

e=1 

DIM A(63),X(63},E(T),G(1) 

DIM H(30),I(1),R(3) 

P‚$12''' 

Ben] DE TEKST ROLT OVER HET SCHERM!!!" 
+"2 NA ELKE RONDE GAAT HET TRAGER"''" 
Pos ELKE RONDE KRYGT U 1 STRAFPUNT"'*' 

P. DRUK DE RETURNTOETS"' 

IN. "se 

P‚g12t tre 

P,"* UW MEDESPELER MAG NIET KYKEN *"''! 

IN. "VOER UW TEKST IN <MAX.30 TEKENS>""''SA 

D=1;T=0 

Pogigt eere 

P‚!* LAAT UW MEDESPELER KYKEN ***t!1r 

P. "TEKST GAAT OVER HET SCHERM LOPEN" 

FOR Z=0 TO 500;WAIT;N. 

P‚$i2tteenr 

D=D+1 ;T=T+1 

CLEAR 0;?#E1=0;P.' 

FOR B=0 TO LEN(A) 

SX=FAGFKEEXIB; EXel="" 

CLEAR Q 

PRINT $X 

FOR C=0 TO D 

WAIT;NEXT C;NEXT B 





p.rrt 
IN.“ WEET U HET AL <J OF N>“SE'' 

IFP SE="N" P.G.220 

IF $E="J" T.G.360 

G.320 

IN," WAT IS VOLGENS U DE TEKST"''$H 
IF $H=$A T.G.500 

P.st2ttent 


P." HET ANTWOORD IS NIET CORRECT"'' 





P.'U HEEFT NU EEN STRAFPUNT EXTRA!!! 
IN. “WILT U NOG VERDER «J GP N>"$I'' 
J" T.G.220 








IF $I="N" T.G.460 
G.430 
Pigtzteeer 

P.“ U GEEFT DE MOED WEL SNEL OP"''''* 
Pp.” HET GOEDE ANTWOORD IS :"'" 
P.$8A'';G,520 
p.5i2etrers 

Pp.” U HEEFT “T" STRAFPUNTEN"'""'* 
IN.” WILT U NOG EEN KEER “SR 


IF SR="JA" T.G.140 
IF SR="NEE" T.G.560 
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550 G.520 
560 P‚s12''!tre *r TOT ZIENS #ax'tr. 
570 END 





6.170 

akbororpk VOOR DE 

* FD-PLOT * ECHTE 
Bbtortrdnk LIEFHEBBER! 


P.$7;CLEAR4 
F‚X=1T07205. 28 
% ADX3REM STRAAL 
HEX CCSINKR/AR) #VD 
MOVEK CA+AREW) , CB+H) 














78 Dit prosramma tekent een REM CIRCEL: 
58 aantat cirzets waarvan de Ff. C=@T098 
98 plaats (hooste) bepaald GDS. aiN, 
188 wordt door de formule N. 
110 "H=CSIN X9/X" voor X= F‚C=@TO8SS, 2 
128 0.02 tot 4*PI radialen. MOVEA, 150 
158 De straalt van de circets 34B REM LIJNEN: 
148 is recht evenredis met X. 358 F.X=1T07205. 205 R=RADX 
158 — 368 Hex (SINXR/XR) #V) 
168 — 378 BOS, aiN. 
178 P.E12"WACHT" 3808 N „$7tE. 
188 FD, 5530, ACCS93 SBaP=AAFKCCERARKIND 
C2PID /93 4O8 GE CB+HIASSCHEX/ ID) 






F‚ X=OTOD } AX Xh 418 DRAWP, Q 
„S= SINAX; XCCX=COS%X EN. 420 — 

430 Bart Bekooy 
mmm 
REM aanschuivende titels 

REM ©1/04/84 BART BEKOOY 





P.$12" * TITELS #"° 

P, "VOER EEN BANTAL TEKSTEN IM, MET" 
P, “MAXIMAAL 32 TEKENS PER TEKST.” 
P, "DE HOOGTE IN HET BEELD IS STEEDS" 
P, "AFZONDERLIJK AAN TE GEVEN. ER“? 
P. “GELDT: 1=BOVENSTE, 1E=ONDERSTE"" 
P, “REGEL. HET IS DUS MOGELIJK DM“ 
P, "EEN REGEL DOOR EEN LATERE TEKST" 
P. "TE OVERSCHRIJVEN, "" 

P. "DRUK NA ELKE PIEP OP EEN TOETS, “* 
N. “HOEVEEL TEKSTEN "1 
DEMH(I), LCI), Pl=1) D= 








P. “SNELHEID (G=SNEL; SS=LANGZAAM) = “FIN.SsP,$12 

REM invoer: 

a=P 

F.X=1TOIGP." © TITEL"X" 2"? 
IN. “REGELHOOGTE "BiH?X=@-1s IFO(LORG) 1E5P. $75G. 200 
P. “TEKST =""s IN, $A 
IFLENADZEE;P, $7"TE LANG! "' 3 XeX-liN, 
LIX=LENR- 15 A=A+L? Xr 

N. 

REM conversie ASCII-VDU 

F.X=P TO A 


INEIKARZLOE IF KHEB PKI HED 
N. 
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29DaREM uitvoer: 
388 CLEARS:P. $7:L1, HFFESsA=P 
E18 F.X=1TO0I 








328 B=#80BOH52* CH? X) 

338 C=B+31 

348 D=A+L7X 

358 F,YsA TO D 

360 FE. TO B S,-1 

370 IF?y=#205 Z=B 

388 ?1=2YiF, 

398 N. 3?B=?Y3B=Bti 

400 ON. sA=AHLIX+2 

418 N. 

428 LI. #FFES:P. $12 

438 P. "DE SNELHEID WAS “5° 
440 IN. "SNELHEID WORDT *S 


458 G.a 





18 PROGRAM DRAAK 

20 

PROC LIJNCXL, HD, Le M 

40 

SB LeXCAL+B, 5) 3MSKCHL/1, 4+D. 5) 
55 H=HXB; IFH (O5 H=H+8 

58 ON H+1 GOTO a,b: c:d:e: f: 5: h 
7GaPLOTI, L, B56. p 
BALPLOT 4, Mo H5G. Pp 
SAcPLOT1, B, LG. p 
1824PLOTI, -M‚, MSG. p 
118ePLOTi, -L; 33 G. p 
128FPLOT 1, -M‚ -M5G, p 
130ePLOTi, @, -L:G. p 
14DAPLOT1, M‚ -M:G. p 

145 

150pPEND 

168 

178 PROC CURVE CAL, H‚ X) 


188 

138 FIF XL XM LIJNCXL, HJ sG. u 

288 XL=XL/1,4 

218 CURVECHL; H+X, 1) 3CURVECHL: H-X, —1) 
22BuPEND 

258 

24OREM hoofderosramma 

258 

258 XM=3, 0 

278 CLEAR43MOVELZO, 48 

288 CURVE77. 0: 2, 1) 

2IBEND 

235 

208 VERANDER REGEL 218: —t WORDT 1 
318 OM DE C-EURVE TE KRIJGEN 


3520 MET XM IN REGEL 268 IS DE 
338 GROOTE VAN DE DETAILS IN TE 
348 STELLEN. 


eenen 


B PROGRAM STRING FUNCTIES 


REM : 


FUNCTION GROTER-DAN CA, B 


ELSE GROTER-DAN = 
FEND 


FUNCTION GELIJK-AAN CA, B) 
148 
158 
168 
178 
188 


ELSE GELIJK-AAN = 
FEND 


XIF ?A=?B AND 2A=13 THEN GELIJK-AAN = 
ELSE XIF ?A0?B THEN GELIJK-AAN = 
GELIJK-RAN CA+i, 2+1) 


REM EEN PRACTISCHE TOEPASSING VAN 
REM RECURSIEVE PROGRAMMERING 
HET VERGELIJKEN DP ALFABETISCHE RANGORDE VAN STRINGS 


XIF ?A)?B THEN GROTER-DAN = TRUE 
ELSE XIF ?A=2B AND ?A0 13 THEN GROTER-DAN = 
FALSE 


GROTER-DAN CA+1,B+1) 


TRUE 
FALSE 
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198 FUNCTION KLEINER-DAN «A, B) 


208 KLEINER-DAN = : NOT GROTER-DAN tA,B) ) & (NOT GELIJK-AAN (A,B) ) 


FEND 
DIM P(256), 0256) 
PRINT #12 
pa 
INPUT “$P “‚sP 
INPUT “sR *, $9 
LE GROTER-DAN 


IF GELIJK-AAN 
PRINT *“‚ "7 





headed 

* vaatdoek * 

Edea hed 

Na enig zoeken héb ik de 
formule voor een slappe 
vaatdoek ontdekt! Deze is 
Y=Z#ARCTANEX) COS EKD à 
voor X=-PI tot PI: en Z 
varieert van B tot Z*PI, 


P‚ $12"WACHT" 
AT=127/LEHPIJ IFD. HXK42 
F.x=0T04E 
KX=EX/AT-PI 
HXAK=COSHKHATNAX 
N. 5XxT=50/ (2 PIJ 3DIMYYSO 
TOS@ 








UNTIL $P="STOP" OR $0="STOP" 


CP,G) THEN PRINT $P,“ IS GROTER DAN “‚ $G 
IF KLEINER-DAN £P,G) THEN PRINT $P," IS KLEINER DAN “,&Q@ 
CP,G) THEN PRINT $P," IS GELIJK AAN ",$5 


228 AX=X/AT 

250 YYX=%C2OKCOSK KO 

248 N.3P.$7IB=T5 

258 CLEAR43 Z=8 

250 F‚A=@T062728. 1285 GOS. a 

278 MOVENR, %(XD+AXXD*H+B) 

288 F‚X=OTO12ES,. 5 

298 DRAWXLX+AB)  KEADIAXKCKAT) HB) 





328 A=0;Z=05G05. a 

338 MOVERCKAO) s KCHGIAKKCK/ ZJ HB) 
348 F.A=OT062725. 128: GDS. a 

358 DRAWXCX+A0D + %CHDLXK CKS TE) B) 
3E8 N, iN. 3P. 67 

378 DOLI. #FFES 

ZEU F‚ I=t80A0TOHSBAES, 4 


38 ! t-ijN. sU. B 
4OBaH=YYZ:D=10+A/ED: ZeZ+1liR 
418 — 


428 Bart Bekoor 


a na nnn mmm 


18 PROGRAM PALINDROOM 


ze GOTO p 


58 DIT PROGRAMMA DRUKT ALLE GETALLEN AF 

EB WAARVAN HET KWADRAAT EEN PALINDROOM 18, 

70 £ZOLANG DIT KWADRAAT IN & BYTES PAST) 

88 DAT WIL ZEGGEN DAT HET KWADRAAT VAN LINKS NAAR RECHTS GELEZEN 
20 DEZELFDE WAARDE HEEFT ALS VAN RECHTS NAAR LINKS GELEZEN 

108 LAAT DIT PROGRAMMA OP EEN STILLE AVOND DRAAIEN 

118 WANT ER GAAN WEL EEN PAAR UURTJES MEE HEEN 
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158 DIM CCCI@) 

1EB 

170 MeR&7FFFFEFFSREM BOVENGRENS 
188 

138 G=1 

200 WHILE G +6 (e M 

218 K=G *G 

220 T=i 


27 WHILE K OQ @ 

248 CCLI) = K % 1D 

258 K=K/ 10 

268 Tet +t1 

278 WEND 

288 V=isAst=1 

235 P= t 

208 WRILE C V {A ) AND P 
318 P= C CCV) = CEL) D 
30 VaV+i1 

330 A=A-1 

348 WEND 

358 IF P THEN PRINT G,“ “‚, GG: 
568 G =G + 1 

578 WEND 

583 

330 END 





1GREM THE A-TEAM 
2OREM J.J, RIEFF SCHIEDAM 
ZOPLAYA"S, AB, AB, A"B, A" HB, A" HB, A" ÉE, A" HB, B'B, D'S 
ADPLAYB"B, B'8,C"B,C"B,C"B, C'B, CHE, C* HB, C' HB, C" RE 
SOPLAYD"B, D" 8, D"8, D"B, A"B, A" HE, B'5, C"B, C'#B, D' B 
EOPLAYD"#8, E“ 8, F"B, F" HBG" 4, G"H2,C"E,C"S, C"ELC"S 
ZBPLAYC" HB, C" #8, C" #8, C" #5, DB, DB, D'B,D"8 
BUPLAYD"HE, D"#B:, D"#B, D' HE: E"DrE"B, E"B,E"S 
SUPLAYF"B, FY8,F"B, FB F' HB, FE FB: FH 
100FOR X=i TO 2 
11BPLAYG'4,G' 4D 4,G' 1,0? 4, D' £, G1 
IZDPLAYG' 4,0 4,6’ 2; D’ 2, A"2, 6 1 
13GPLAYF' 4, F'4,E’4,D' 4,0 2, D' 1 
14BNEXT X 
150PLAYG' 4, G' 4; F'2,G'2,D' br C'R2C' 29 FA, A" RZA" 
1EBPLAYG' 4, G74,F"2,G' 2,F° 2, D' Hr D' Há, D' #2, F' 1 
170PLAYG4. G6, D4, GL: C4, D2, GL 
1EBPLAYG4, G4, 62, DE, A’ 2, GL, Fl, Far EG, DA, C£, Di 
139PLAYG'4,G'4,D’ 4,G'1,C' 4, D' 2, G1 
280PLAYG'4,5' 4,0 2,D' 2, A" 2, G' 1 
21APLAYF' 4, F°4,E' 4e D' 4, CAD" 1 
220PLAYG' 4, G' 4, D' 4, G° 1, C' 4, D' 2, GE, GB: GE, G4 
2ZDEND 


